Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
04/06/2013 23:18
Konu Sahibi
SADIK54
Yorumlar
7
Okunma
3846
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

SADIK54

Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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


Ek Dosyalar
.rar   MAİL GÖNDERME.rar (Dosya Boyutu: 38,23 KB / İndirme Sayısı: 54)
Cevapla

POWER

Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.865
02/04/2010
İzmir
Ofis 2003
14/09/2017,15:34
Çözüldü 
Önceki konunuza dönüş yapınız...


Please return your positive or negative ...
Cevapla

SADIK54

Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
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

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.789
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,13:38
Çözüldü 
kodu aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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


Cevapla

SADIK54

Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
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ı


Cevapla

SADIK54

Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
ozan bey yardımlarınız için teşekkür ederim. hatayı çözdüm gmail hesabından göndermek gerekiyormuş.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Geçerli Kaydı Mail Atma Hk. serkan1985 6 207 25/08/2017, 09:02 serkan1985
Çözüldü Firmanın Kayılı E-mail Sipariş Verme U.ALTUN 4 297 30/06/2017, 10:45 U.ALTUN
Çözüldü Rapor Saat Toplamı KAZIMS 3 252 30/05/2017, 16:16 atoz112
Çözüldü Otomatik Sms Gönderme kyskys_2017 2 277 24/05/2017, 15:55 kyskys_2017
Çözüldü Form Da Döngü İle Mail Gönderme barcins 8 550 08/05/2017, 09:09 barcins

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.