Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

SMTP ile Rapor mail gönderme

SADIK54
SADIK54
Access Cevaplanmış Soruları
7
5505

SMTP ile Rapor mail gönderme

Çözüldü #1
SADIK54
Aktif Üye
SADIK54
Bul
Aktif Üye
Adı Soyadı:
Konum: Sakarya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 09/10/2016,07:39
Yorumları: 252
Konuları: 66
Kayıt Tarihi: 15/11/2008
Rep Puanı: 0
Arkadaşlar sitede smtp ile outlok olmadan hotmail hesabı ile mail gönderimlerini inceledim ancak benim istediğim olmadı. örnek dosyamda form sayfasında MAİL GÖNDER butonuna bastığımda raporunu pdf ile smtp outlok olmadan göndermek istiyorum. ancak yapamadım yardımcı olabilirmisiniz.

MAİL GÖNDER butonun içine şu kodlar vardır sitedeki örnek dosyalardan kopyaladım. bu kodlarla uyarlanabilirmi

Visual Basic Code 
Private Sub GONDER_Click()

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "calisan", Application.CurrentProject.Path & "\DETAY.XLS"


' + mail gönderme işlemi

Dim iMsg, iConf, Flds, schema
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "gmailadresim"
Flds.Item(schema & "sendpassword") = "gmailşifrem"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "gid@ecekkişimailad.resi"
.From = "gön@deren.kişi"
.Subject = "konuumuz excelle gönderinimi"
.HTMLBody = "evettt gönderdik gitti aldınızsa bana cepten ulaşın"
.Sender = "ben"
.Organization = "yineben"
.ReplyTo = "yanlışkişiyegitti ise geri gelecek adres"
.AddAttachment Application.CurrentProject.Path & "\DETAY.XLS" 'burda stfile adlı globale atadığımız rapor dosyasının yeri adı"

Set .Configuration = iConf
On Error GoTo 10:
.Send
End With

10:
MsgBox "Kullanılabilir değil, bilgilerinizi kontrol edin."

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


End Sub
.rar MAİL GÖNDERME.rar (Dosya Boyutu: 38,23 KB | İndirme Sayısı: 62)
Son Düzenleme: 04/06/2013, 23:22, Düzenleyen: SADIK54.
Cevapla
Çözüldü #2
POWER
Uzman
POWER
Bul
Uzman
Adı Soyadı: Uf.... Öz....
Yaşı: 57
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: Bugün,18:57
Yorumları: 1.894
Konuları: 44
Kayıt Tarihi: 02/04/2010
Rep Puanı: 1.899
Mesleğiniz: Bilgisayar Mühendisi
Önceki konunuza dönüş yapınız...
Please return your positive or negative ...
Cevapla
Çözüldü #3
SADIK54
Aktif Üye
SADIK54
Bul
Aktif Üye
Adı Soyadı:
Konum: Sakarya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 09/10/2016,07:39
Yorumları: 252
Konuları: 66
Kayıt Tarihi: 15/11/2008
Rep Puanı: 0
bir önceki yazmış olduğum soru için dönüş cevabımı yaptım. bu site harika hem takip hemde verilen cevaplar yerinde ve zamanında bu konuya hakim hocalarımdanda yardımlarını bekliyorum. herşey için teşekkür ederim.
Cevapla
Çözüldü #4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,21:58
Yorumları: 13.394
Konuları: 497
Kayıt Tarihi: 29/01/2008
Rep Puanı: 3.123
Mesleğiniz: Memur
kodu aşağıdaki ile değiştir.

Visual Basic Code 
Private Sub GONDER_Click()

DoCmd.OutputTo acOutputReport, "calisan", "PDFFormat(*.pdf)", CurrentProject.Path & "\DETAY.pdf", False, "", , acExportQualityPrint

' + mail gönderme işlemi

Dim iMsg, iConf, Flds, schema
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "xxxxxxxxxx@gmail.com"
Flds.Item(schema & "sendpassword") = "gmailsifre"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "kime"
.From = "kimden"
.Subject = "pdf gönder"
.HTMLBody = "evettt gönderdik gitti aldınızsa bana cepten ulaşın"
.Sender = "ben"
.Organization = "yineben"
.ReplyTo = "yanlışkişiyegitti ise geri gelecek adres"
.AddAttachment Application.CurrentProject.Path & "\DETAY.pdf" 'burda stfile adlı globale atadığımız rapor dosyasının yeri adı"

Set .Configuration = iConf
.Send
End With



Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Kill (CurrentProject.Path & "\DETAY.pdf")

End Sub
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #5
SADIK54
Aktif Üye
SADIK54
Bul
Aktif Üye
Adı Soyadı:
Konum: Sakarya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 09/10/2016,07:39
Yorumları: 252
Konuları: 66
Kayıt Tarihi: 15/11/2008
Rep Puanı: 0
sn ozan bey; ilgili alanları doldurdum ama hata veriyor bu hatanın sebebi ne olabilir. bütün alanları doldurdum "kimden kime hanelerini"

runtime eror 2147220973 (80240213)
Aktarım Sunucuya Bağlanamadı
Son Düzenleme: 06/06/2013, 21:20, Düzenleyen: SADIK54.
Cevapla
Çözüldü #6
SADIK54
Aktif Üye
SADIK54
Bul
Aktif Üye
Adı Soyadı:
Konum: Sakarya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 09/10/2016,07:39
Yorumları: 252
Konuları: 66
Kayıt Tarihi: 15/11/2008
Rep Puanı: 0
ozan bey yardımlarınız için teşekkür ederim. hatayı çözdüm gmail hesabından göndermek gerekiyormuş.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da