2007 İçin Makro İle Mail Gönderme

[mmercann]

Makro çalıştırılınca çalıştırıldığı dosyayı ek yapacak ve dosya adını mail konusu yapacak ve maili belirlenen bir adrese gönderecek. Daha önceden 2002 ile yazılmış mail gönderme makroları mevcut, ancak excel 2007 de çalışmıyorlar. Yardımcı olabilirmisiniz.

 

[mmercann]

Kendim buldum

Bu makro 2007 için çalışılan dosyayı mail konusu yaparak ve dosyayı ekleyerek belirli bir mail adresine ve belirlenen bir içerikle gönderebiliyor. Kendim sormuştum bunu, araştırınca buldum.

Sub gonder ()
'Mail Gönderme
Dim OutApp As Object
Dim NewMail As Object
Dim ShName As String, WbName As String
Dim ModX As Object, VBComp As Object
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(0)
With NewMail
.To = "falan@filan.com.tr"
.Subject = Range("a1")
.Body = " Mailin içeriğini buraya yazabilirsiniz"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub