Aslında bu komutla mail sayfası açabilirsiniz, varsayılan hangi programsa yeni maili açar,
Kod:
DoCmd.SendObject acSendReport, "deneme", acFormatXLS, "TO@deneme.com", "CC@deneme.com", "BCC@deneme.com", "Konu", "Mesaj"
bur da deneme raporunu
Excel olarak gönderir
umarım iş görür
Sn. besst,
Sorun çözüldü mü? Çözüldüyse, konuyu taşıyalım.
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
(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 = "krl_nht@hotmail.com"
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
Sayın Nihatkr
Access üzerinden mail gönderme yolunu bulmaya çalışıyorum. Gönderdiğiniz kodlar
Excel üzerinden mail gönderme kodu yanılmıyorsam. Eğer yanılıyorsam sizden ricam Ek'teki örneğe uyarlayabilirmisiniz. Çünkü o kadar uğraşmama rağmen bir türlü uyarlayamadım.
teşekkürler ,
İyi çalışmalar
nihatkr;
dosyanız işime yaradı ancak aşağıdaki gibi yapabilirmiyiz.
bu dosyayı herzaman aynı kişilere gönderiyorum, mail atacağım kişileri sabit olarak yapabilirmiyimz. birde bir hücredeki yazıyı mail konusuna ekleyebilirmiyiz (örneğin B14 hücresindeki yazı mail konu başlığı olabilirmi?) ben biraz denedim ama yapamadım.
yardımcı olursanız sevinirim.
selamlar.