Skip to main content

AccessTr.neT


Excel dosyasını mail gönderme.

Excel dosyasını mail gönderme.

Çözüldü #13
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"
bur da deneme raporunu Excel olarak gönderir

umarım iş görür
İyi Çalışmalar....
Son Düzenleme: 23/06/2009, 12:45, Düzenleyen: pcman.
Cevapla
Çözüldü #14
Sn. besst,

Sorun çözüldü mü? Çözüldüyse, konuyu taşıyalım.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #15
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
Cevapla
Çözüldü #16
(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
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #17
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
Cevapla
#18
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.
Son Düzenleme: 23/09/2022, 13:41, Düzenleyen: altinerali.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task