+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel dosyasını mail gönderme. (/konu-excel-dosyasini-mail-gonderme.html)
Cvp: Excel dosyasını mail gönderme. - pcman - 23/06/2009
Aslında bu komutla mail sayfası açabilirsiniz, varsayılan hangi programsa yeni maili açar,
Kod:
DoCmd.SendObject acSendReport, "deneme", acFormatXLS, "[email protected]", "[email protected]", "[email protected]", "Konu", "Mesaj"umarım iş görür
Cvp: Excel dosyasını mail gönderme. - Seruz - 26/06/2009
Sn. besst,
Sorun çözüldü mü? Çözüldüyse, konuyu taşıyalım.
Cvp: Excel dosyasını mail gönderme. - besst - 26/06/2009
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
Cvp: Excel dosyasını mail gönderme. - nihatkr - 26/06/2009
(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
Cvp: Excel dosyasını mail gönderme. - besst - 26/06/2009
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
Re: Excel Dosyasını Mail Gönderme. - altinerali - 20/09/2022
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.