Pdf kaydetsin otomatik mail atsın

[hgenc545]

Selamlar;

Bir Makro için yardımrica ediyorum.

Bir dosyam var, yenile dediğimde satışlar güncelleniyor. bunu otomatik macro yaptım. Belli bir saatte açılıyor ve otomatik makro çalışıyor ve kaydoluyor. İstediğim şey kayıttan sonra ilgili sheet PDF ye dönüşüp, otomatik mail atsın. Yardımınızı rica ederim

 

[Emir Hüseyin Çoban]

Bilgisayarınızda tanımlı outlook hesabı var mı?

.

 

[Baggwell]

PDF Kaydetme olayını bilmiyorum ama mail gönderme makrosunu paylaşabilirim, outlook kurulu olması gerekiyor Hüseyin hocamızın dediği gibi,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Çalışma kitabı ekli olarak belirttiğiniz adrese gönderilsin mi?", vbQuestion + vbYesNo, "MAİL") = vbYes Then
    If Saved = False Then Saved = True
Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = "xxx@xxx.com" 'Posta gönderilecek adres
        .CC = "" '(Carbon Copy) Bu şekilde eklediğiniz kişilere mailin bir kopyası gider.
        .BCC = "" '(Blind Carbon Copy). Bu şekilde eklediğiniz kişilere de mail gider ancak Gönderilen ve CC kısmına yazdığınız kişilerin bundan haberi olmaz.
        .Subject = "Dosyalarınız Yedeklenmiştir." ' Konu (Title)
        .Body = "Dosyalarınız Yedeklenmiştir." 'Yazmak istedikleriniz. (Prompt)
        .Attachments.Add ActiveWorkbook.FullName 'Bu çalışma kitabını ek olarak gönder.
        '.Attachments.Remove (1) 'Ek göndermek istemezsen
        '.Attachments.Add ("C:\test.txt") şeklinde de dosya eklenebilir.
        .Send  'yada .Send veya Display kullanılır.
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End If
End Sub