(26/06/2009, 14:27)besst yazdı: Sn. Seruz


Konu hakkında değerli üstadlarımız farklı yollardan çözüm önerilerinde bulundu hepsine tek tek teşekkürlerimi sunarım.

Şimdilik Excel dosyasının Vista Windows Mail ile gönderimi soru işareti ama diğer gösterilen yöntemler muhakkak iş görür.

O yüzden konuyu taşımanızın benim için bir mahsuru yok,

iyi çalışmalar

Sub Excelden_Mail()
Dim objOL As Object
Dim objMail As Object
Dim objwShell As Object
Dim strEmail As String

strEmail = "[email protected]"
On Error GoTo temizle
Set objwShell = CreateObject("wscript.shell")
objwShell.Run ("""C:\Program Files\Windows Live\Mail\wlmail.exe"" -activate")
Set objOL = CreateObject("wlmail.Application")
Set objMail = objOL.CreateItem(0)
With objMail
.To = strEmail
.Subject = [Sayfa1!h12]
.Body = "DENEME YAPIYORUZ BAKIN TARİHİ YAZDI"
MsgBox "TAMAMA BASINIZ", vbInformation, "NİHATKR TARAFINDAN YAPILMIŞTIR"
.send
End With
objwShell.Run ("""C:\Program Files\Windows Live\Mail\wlmail.exe"""" -stop")
temizle:
Set objMail = Nothing
Set objOL = Nothing
Set objwShell = Nothing
On Error GoTo 0
End Sub