benim ilk gönderdiğim öğrenk ama yine göndereyim bu kod çalışıyor
kimden1="....@gmail.com" && aşağıdaki almış ıldugun adresi yaz
kime1=".......@................" && kime göndereceksen email adresi
baslik1="deneme"
mesaj1="Deneme Mesajıdır "
kime_cc1=""
kime_bcc1=""
mailserver1='smtp.gmail.com' && gmail smtp adresi aynen yaz
kullanici1="....@gmail.com" && gmail adresin
sifre1="......" && adresini şifresi
EKDOSYA=dosyaadi && bu kısma gönderecigin dosyayyı belirtirsin
LOCAL serayar, ayar, mail
serayar = "http://schemas.microsoft.com/cdo/configuration/"
ayar = CREATEOBJECT("CDO.Configuration")
WITH ayar.FIELDS
.ITEM(serayar + "smtpserverport") = 25
.ITEM(serayar + "sendusing") = 2
.ITEM(serayar + "smtpusessl") = .t.
.ITEM(serayar + "smtpserver") = mailserver1
.ITEM(serayar + "smtpauthenticate") = 1
.ITEM(serayar + "sendusername") = kullanici1
.ITEM(serayar + "sendpassword") = sifre1
.UPDATE
ENDWITH
mail = CREATEOBJECT ("CDO.Message")
mail.Configuration = ayar
With mail
.To = kime1
.CC = kime_cc1
.BCC = kime_bcc1
.From = kimden1
.Subject = baslik1
.TextBody = mesaj1
if !empty(EKDOSYA)
.AddAttachment(m.EKDOSYA)
endif
.Send()
Endwith
Store .Null. To cdoMessage,cdoConfig
Wait Window "e-mail başarıyla gönderildi ........." Nowait
ben gmail den gönderiyorum hiç problemsiz gidiyor hemde yüzlerce kişiye ulaşıyor gmail smpt adresini hiç denedinmi ?
denersen ilk olarak hesabı oluştur sonra pop3 ayarları kısmından etkinleştir sonra
gönderecegin kodun
mailserver1='smtp.gmail.com' yazmalısın
smtpusessl ise .t. olmalı
ozaman olur
Bilgi Paylaşıldıkça Artar...!