Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 04-01-2018, 09:33   #1
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 109
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan Mail Gönderme Hatası

Merhaba,

siteden aldığım bir makro vardı fakat kimden aldığımı tam hatırlamıyorum. otomatik olarak mail gönderiyordum. bilgisayar güncelleme yaptığı için windows 10 a geçiş yaptık. sürekli bir hata almaktayım. işin içinden çıkamadım. yardımlarınızı rica ederim.

Kullandığım makro bu. Mail gönder tuşuna bastığımda göndermiyor.

Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 11) = "" Then GoTo HATA

On Error GoTo HATA

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

saydir = Sayfa1.Range("B" & Rows.Count).End(3).Row
DinamikAlan = "B2:" & "G" & saydir
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)

Set Sayfa = ActiveSheet

With Alan

.Parent.Select
Set daralan = ActiveCell

.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = "Merhaba," & _
vbCrLf & " Efesan Liman sahasında bulunan gümrük ve stok araç adetleri marka ve model bazında aşağıdaki tabloda bilginize sunulmuştur." & _
vbCrLf & " Saygılarımızla,"
With .Item
.SentOnBehalfOfName = "cenkungan@gmail.com"
.To = Cells(2, 11)
.CC = Cells(3, 11)
.BCC = Cells(4, 11)
.Subject = Cells(1, 11)
.send
End With

End With

daralan.Select
End With

Sayfa.Select

HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With


End Sub

Bu mesaj en son " 04-01-2018 " tarihinde saat 10:08 itibariyle uKiGS tarafından düzenlenmiştir....
uKiGS Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-01-2018, 09:58   #2
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,706
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Soru başlığı benzer problemlerde sorunun bulunmasına uygun değil biliyorsunuz...

Kodların başında ve sonunda [quote] kullanmanız daha doğru olurdu.

Diğer yandan , sorunuzun kısmi cevabı şurada verilmiş olabilir.

http://www.excel.web.tr/f48/makro-bu...tml#post924457

Yani alıcı gösterilmedi ise bu kodların başında çıkış yapılması gereken durumdur.
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 10:05   #3
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 109
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Windows 10a geçmeden önce kullandığım makro sorunsuz çalışıyordu. Şimdi dosyayı kullandığımda mail gönder butonuna tıkladığımda direkt olarak From To CC BCC kısımları açılıyor ve konuyada dosyanın adını yazıyor.

dosyayı gönderiyorum bir bakarsanız sevinirim.
Eklenmiş Dosyalar
Dosya Türü: xlsm Örnek mail.xlsm (28.0 KB, 3 Görüntülenme)
uKiGS Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-01-2018, 11:19   #4
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 109
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

varmı yardım edebilecek kimse?

sayın cems'in dediği konuya baktım fakat sorun onunla alakalı değil sanırım yine aynı hataları alıyorum.
uKiGS Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-01-2018, 11:21   #5
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 109
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Mail gönder butonuna tıkladığımda yukarıdaki from sent kısmı açılıyor.
Eklenmiş Resimler
Dosya Türü: jpg Capture.JPG (152.0 KB, 9 Görüntülenme)
uKiGS Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-01-2018, 12:40   #6
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 109
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Arkadaşlar sıkıştırıyorum farkındayım ama gerçekten konu benim için acil. Yardım edebilecek birileri varsa ve ederlerse çok memnun olurum.
uKiGS Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-01-2018, 13:23   #7
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,544
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Bu şekilde deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub mail_secili_alan()
      Dim wrdEdit
      Dim alan As Range

      Set alan = Range("B1:H26")
            
      Set OutApp = CreateObject("Outlook.Application")
      Set Outmail = OutApp.CreateItem(0)
       With Outmail
         .SentOnBehalfOfName = "sizinmail@aaa"
         .Recipients.Add (Cells(2, 11))
         .Recipients.Add (Cells(3, 11))
         .Subject = Cells(1, 11)
         .Display
          mesaj = "Merhaba," & _
            "<br>" & " sahasında bulunan gümrük ve stok araç adetleri marka ve model bazında aşağıdaki tabloda bilginize sunulmuştur." & _
            "<br>" & " Saygılarımızla,"
         .HTMLBody = mesaj & RangetoHTML(alan) & .HTMLBody
         'Maili otomatik göndermek için .send deki tırnak işaretini kaldırın.
         '.send
       End With
      
      Set wrdEdit = Nothing
      Set Outmail = Nothing
      Set OutApp = Nothing
End Sub

Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2016
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function
__________________
www.asriakdeniz.com

Bu mesaj en son " 04-01-2018 " tarihinde saat 22:54 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 13:28   #8
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 109
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Sayın asri dediğiniz şekilde denedim fakat göndermiyor yine. Yukarıda resimdeki gibi from sent kısmı gelmiyor ama mailide göndermiyor ne yazık ki.
uKiGS Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-01-2018, 13:33   #9
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,544
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
uKiGS tarafından gönderildi Mesajı Görüntüle
Sayın asri dediğiniz şekilde denedim fakat göndermiyor yine. Yukarıda resimdeki gibi from sent kısmı gelmiyor ama mailide göndermiyor ne yazık ki.
Koddaki bu bölümü çıkarıp dener misiniz?
Bu da olmuyor ise Outlook tarafında bir sorun olabilir diye düşünüyorum.

Normalde excel in içinden kod kullanmadan dosya /paylaş/ eposta/ ek olarak dediğiniz de gidecek mail düzgün açılıyor mu)

.SentOnBehalfOfName = "sizinmail@aaa"
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 13:38   #10
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 109
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

ekteki dosyamda bir makrom var zaten onunla sorunsuz olarak kullanıyordum. dün gece şirket bilgisayarlarına windows 10 güncellemesi geldi o yüzden gönderim yapmıyor bugün. koddaki o bölümü çıkartırsam mail adresi istediğim mail olmayacak bu da benim bir işime yaramayacak. kodda o kısmı çıkartıpta denediğimde de yukarıda resmini atmış olduğum hata ile karşılaşıyorum.
uKiGS Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 21:26


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden