Makro ile Mail gönderirken mail hesabı seçimi

[buggsbunny]

Outlookta birden fazla posta hesabım var. Biri şahsi adresim diğeri şirket adresi. Excelden aşağıdaki makro ile çalışmaları pdf yapıp mail gönderirken hangi adresimden göndereceğimi makro ile nasıl tanımlarım.

Sub MailGonder_AracCubugu()

MsgBox ("Masaüstünüzde PDF klasörü oluşturulacak dosyalar içerisine aktarılacaktır.")

On Error GoTo bb

ChDir Environ("UserProfile") & "\Desktop\"

    Dim Ds

    Set Ds = CreateObject("Scripting.FileSystemObject")

    Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF"

bb:

Mail = InputBox("Mail Adresini giriniz", "Mail Adresi?")

Kontrol = MsgBox("Mail " & Mail & " adresine gönderilecektir.", vbYesNo)

If Kontrol = vbYes Then

GoTo cc
  End If
        Exit Sub
cc:

Dosyaadi = InputBox("Dosya adını giriniz, mail konusu da dosya adı ile aynı olacaktır")

Yol = Environ("UserProfile") & "\Desktop\PDF\"

ActiveWindow.SelectedSheets.Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

    Filename:=Yol & Dosyaadi & ".pdf", OpenAfterPublish:=False
Yol2 = Yol & Dosyaadi & ".pdf"

Set dam = CreateObject("Outlook.Application").CreateItem(0)

With dam

    .to = Mail
    .cc = ""
    .bcc = ""
    .Subject = Dosyaadi

    .Body = "İstenilen çalışma ekte gönderilmiştir."

    .Attachments.Add Yol2
    .Send
End With

MsgBox "Email gönderildi. Masaüstünüzdeki PDF klasörünü silebilirsiniz"

End Sub

 

[Korhan Ayhan]

İnceleyiniz.

Sorgu için arama sonuçları: SendUsingAccount

www.excel.web.tr