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