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

[Bülent]

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

Kod Seç Expand

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