Dosyayı mail ile otomatik gönderme

[16prens]

Excell çalışma dosyamın içerisinde 1 den çok sayfa var ve gün geçtikçe çoğalmakta.
Ben bu çalışma kitabımı kaydettikten sonra otomatik olarak belirlediğim mail adreslerine göndermek istiyorum.
Lütfen yardım edermisiniz. Sabah saat 09:00 dan beri tüm internette aradım bulamıyorum

 

[16prens]

Excell çalışma dosyamın içerisinde 1 den çok sayfa var ve gün geçtikçe çoğalmakta.
Ben bu çalışma kitabımı kaydettikten sonra otomatik olarak belirlediğim mail adreslerine göndermek istiyorum.
Lütfen yardım edermisiniz. dün Sabah saat 09:00 dan beri tüm internette aradım bulamıyorum

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub DOSYAYI_MAİL_GÖNDER()
    Dim XLOutlook As Object, XLMail As Object
        
    Set XLOutlook = CreateObject("Outlook.Application")
    Set XLMail = XLOutlook.CreateItem(olMailItem)
        
    Application.DisplayAlerts = False
        
    With XLMail
        .To = "korhan_ayhan@hotmail.com;ayhan.korhan@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = Date & " Günlük Rapor"
        .Body = "Merhaba," & Chr(13) & Chr(13) & Date & " tarihli rapor ektedir" & Chr(13) & Chr(13) & Chr(13) & "İyi çalışmalar dilerim."
        .Attachments.Add ActiveWorkbook.FullName
        .Display
        '.Send
    End With
    
    Application.DisplayAlerts = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[16prens]

elinize sağlık verdiğiniz macroyu buton yolu ile mail hazırlıyor ve gönderme yetkisi istiyor.
şöyle bir seçenek olabilirmi
dosyayı kapattıktan sonra otomatik olarak direk mail atabilirmi?
ayrıca ilginize cok teşekkür ederim

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyin.

 

[16prens]

verdiğiniz link üyelik istiyor açılmıyor

 

[Korhan Ayhan]

Bu linki deneyiniz...

ÖRNEK.xlsm - 15 KB