Excel ile Outlook'ta Yeni Mail Oluşturmak/Göndermek

Başlatan Bülent, Ekm 08, 2017, 05:08 ÖS

« önceki - sonraki »

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Bülent

Excel ile Outlook'ta Yeni Mail Oluşturmak/Göndermek:

Sub Excel_ile_Outlookta_Mail_Olustur()
    Dim OutlookUygulamasi As Object
    Dim YeniMail As Object

    Set OutlookUygulamasi = CreateObject("Outlook.Application")
    Set YeniMail = OutlookUygulamasi.CreateItem(0)

    On Error Resume Next
    With YeniMail
        .to = "admin@excelsitesi.com"
        .CC = ""
        .BCC = ""
        .Subject = "Mail Başlığı"
        .Body = "ExcelSitesi.Com mail denemesi"
        .Attachments.Add ("C:\ExcelSitesi\Ek1.xls")
        .Display 'Görüntülemek için
        '.Send   Göndermek için
    End With
    On Error GoTo 0

    Set YeniMail = Nothing
    Set OutlookUygulamasi = Nothing
End Sub