e-mail Göndermek

beab05 · 26-02-2011, 14:36

Merhaba;

Birazdan çalışan bir örnek eklerim. Ugulamadaki raporu pdf e çevirip eklenti olarak gönderecek şekilde..

Not: Mehmet Bey'in mesajını görmeden yazmıştım ama yine de birazdan raporu pdf e çevirip yollayan bir örnek ekleyeceğim..

Yaptım, aşağıdaki linki izleyiniz.
http://www.access-sql.com/Konu-Mail-Gond...klemek-pdf

aliyorga · 27-05-2011, 10:21

Ya olay başından tamam. Burada bütün mesele gmail den email adı almak. Ben denedim. Dosyayı da ekliyor ve gönderiyor. ANCAK programın son satırlarındaki objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ifadesindeki =25 rakamı 465 ile değiştirilecek. Çünkü gmail stmp portu 465 dir.
Berkant Öztürk ün en başta yazdığı kodlar (25-465 değişimi sonrası) doğru çalışyor.
Berkant Öztürk ede teşekkür ederim...

armane · 28-02-2012, 19:10

merhabalar ,

sayın taruz hocanın yönlendrimesiyle konuya dahil oldum ,

gmailden hesap açtım , ordaki bilgileri burdakilerle değiştirdim fakat

sayın Mehmet Eserin örneğinde " yolla bakim " dedğimde " objCDOMail.Send " satırında hata veriyor.

25- 465 olarak değiştirdim.

problem ne olaiblir acaba ?

syg

beab05 · 28-02-2012, 20:07

587 yapınız Wink

armane · 28-02-2012, 20:28

merhaba,

olmadı sayın Berkant Hocam..

saygılar

beab05 · 28-02-2012, 22:37

Merhaba;

Alttaki gibi gönderim yapıyor.. Denedim..

Visual Basic
Dim objCDOMail As Object
    Set objCDOMail = CreateObject("CDO.Message")
 
    objCDOMail.To = "Gönderilecek e-mail adresi"
    objCDOMail.From = "Gönderilen e-mail adresi"
    'objCDOMail.CC = "xxxx@hotmail.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
    objCDOMail.Subject = "mail konusu"
   ' objCDOMail.Addattachment "C:\beab.pdf" ' eğer isterseniz eklenecek dosya
 
    objCDOMail.TextBody = "Mail  Mesajınız...."
 
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
     objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
 
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Kullanıcı adı"
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Kullanıcı şifre"
    objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
    objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
 
    objCDOMail.Configuration.Fields.Update
    objCDOMail.Send
 
    Set objCDOMail = Nothing
MsgBox "Mailiniz Gönderildi"

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL