MS Outlook'u tanımladığım excel dosyası ekleyerek açma

[bayram]

Elimde bulunan makro kodlar MS Outlook ile otomatik mail gönderiyor.
Benim isteğim, tanımlamış olduğum excel dosyasını eklentisine alıp eğer olursa default olarak tanımladığım konu ve açıklamalar ile birlikte MS Outlook'un açılıp, benim adres kısmından seçeceğim kişilere göndermesi.

 

[cako]

Aşağıdaki kodlarda istediğin gibi bir örnek mevcut. Kendinize göre uyarlayın.
[vb:1:a3ac3b9e65]Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = txtemail.Value
.CC = ""
.BCC = ""
.Subject = "YEDEK PARÇA AMBAR RAPORU "
.body = txtbastar & " ve " & txtbittar & " Tarihleri arasındaki, " & lblbolum & " - " & lbldurum & " - " & lblfirma & " - " & lblsipver
.Attachments.Add "D:\RaporEmail.xls"
.Send
End With[/vb:1:a3ac3b9e65]

 

[bayram]

cako teşekkür ederim. Biraz düzenleyerek işimi gördü.