sasmaz ali birde bunu denemek istersen aşagıda kodları ayrıntılı bir şekilde yazdım
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
yukardaki gibi göndere bilirsin
öğrencilere ait pdf ,html veya jpg,bmp vs.... gibi dosyaların bulundugu yeri EKDOSYA değişkenine
atayarak gönderirsin
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...!