SMTP ile Rapor mail gönderme - SADIK54 - 04/06/2013
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
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
Cvp: SMTP ile Rapor mail gönderme - POWER - 04/06/2013
Önceki konunuza dönüş yapınız...
Cvp: SMTP ile Rapor mail gönderme - SADIK54 - 05/06/2013
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.
Cvp: SMTP ile Rapor mail gönderme - ozanakkaya - 05/06/2013
kodu aşağıdaki ile değiştir.
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
Cvp: SMTP ile Rapor mail gönderme - SADIK54 - 06/06/2013
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ı
Cvp: SMTP ile Rapor mail gönderme - SADIK54 - 06/06/2013
ozan bey yardımlarınız için teşekkür ederim. hatayı çözdüm gmail hesabından göndermek gerekiyormuş.
|