05-20-2011، 03:44 PM
(05-17-2011، 07:39 AM)پارسا نوشته: سورس بعدی که از طریق smtp gmail (اکانتتتون ) میتونید ایمیل ارسال کنید.اقا میشه در مورد این قسمت بیشتر توضیح بدین
سورس ساده و قابل فهمه اگر جایی مشکل داشتی بگو راهنمایی میکنم.
Send email through Google gmail
کد پیاچپی:Public Function SendMail(msgBody As String)
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = 465
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = True
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = 1
lobj_cdomsg.Configuration.Fields(cdoSendUsername) = "username@googlemail.com"
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "password"
lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30
lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = 2
lobj_cdomsg.Configuration.Fields.Update
lobj_cdomsg.To = "someone@somewhere.com"
lobj_cdomsg.From = "username@googlemail.com"
lobj_cdomsg.Subject = "subject"
lobj_cdomsg.TextBody = "body"
'lobj_cdomsg.AddAttachment ("filepath")
lobj_cdomsg.Send
Set lobj_cdomsg = Nothing
End Function
Dim lobj_cdomsg As CDO.Message