فرستادن ایمیل

[saeid12]

سلام دوستان
این خیلی برام ضروری:
من میخوام بدونم چطوری میشه به ایمیل کسی پیام داد.
من همه پروژه های سایت رو دانلود کردم اما هیچ کدوم کار نکرد.
اگه میشه یه کد امتحان شده بدید ممنون میشم .
مرسی ازاینکه کمکم میکنید.

[bashiry]

سلام
ببین این رو خودم تست کردم و مشکلی نداره. ارسال از جیمیل هست.فقط باید یک ایمیل معتبر به همراه پسوردش از گوگل ( جیمیل ) بهش بدین

لینک:


Dim iMsg, iConf, Flds, schema, SendEmailGmail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

' send one copy with Google SMTP server (with autentication)
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") = "myName@gmail.com"
Flds.item(schema & "sendpassword") = "myPassword"
Flds.item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "Reciever"
.From = "Sender"
.Subject = "Subject"
.HTMLBody = "Text"
.Sender = "Sender"
Set .Configuration = iConf
SendEmailGmail = .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


منبع:


hxxp://www.iranled.com/forum/showthread.php?tid=6750&pid=43309#pid43309 (http://www.iranled.com/forum/showthread.php?tid=6750&pid=43309#pid43309)


ولی خوشحال میشم اگه کسی روشی برای ارسال ایمیل از یاهو بدون پسورد داره ارائه بده.

[saeid12]

ببین این رو خودم تست کردم و مشکلی نداره. ارسال از جیمیل هست.فقط باید یک ایمیل معتبر به همراه پسوردش از گوگل ( جیمیل ) بهش بدین

من میخوام به یاهو میل بزنم.

[Dr.Bronx]

Flds.item(schema & "smtpserver") = "smtp.gmail.com"

جيميل هر چند روز smtp رو تغيير ميده
من هم اين كد رو تست كردم و 100% جواب ميداد ولي تا 1 هفته
البته گوگل بعد از چند هفته دوباره smtp رو به همين نام تغيير ميده
بايد چك كنيد بينيد هر روز عوض ميشه يا نه

[Dr.Bronx]

من میخوام به یاهو میل بزنم.
خوب اون مسئله اي نيست - شما مي تونيد از Gmail به ياهو ايميل بزنيد
من تست كردم و 100%‌جواب داده فقط بحث اون موردي كه در پست قبل گفتم مي مونه

[saeid12]

آقای بشیری کارت درسته
خیلی خیلی خیلی ممنون.

[.:KeihanCPU:.]

خوب شما میتونین لیستی از سرورهاش درست کنید و از هر کدوم معتبر بود استفاده کنید

[Dr.Bronx]

آقای بشیری کارت درسته
خیلی خیلی خیلی ممنون.
ظاهرا مثله اينكه smtp رو دوباره به حالت اصلي برگردوندن
ولي خوب همون مشكلي كه گفتم براتون پيش مياد
پيشنهاد .:KeihanCPU:. خيلي خوبه
مي تونين از همين روش استفاده كنين

[saeid12]

خوب شما میتونین لیستی از سرورهاش درست کنید و از هر کدوم معتبر بود استفاده کنید

میشه یه لیست smtp رو از یاهو و msn و گوگل بزارید.