سلام
چطوری میشه با استفاده از vb یک ایمیل (همراه فایل) ارسال کرد
من دیروز یه برنامه از اینترنت گرفتم یکی دو بار ایمیل فرستاد اما امروز هر کاری می کنم نمی شه که نمی شه.
این برنامه ازSMTP برای ارسال ایمیل استفاده می کنه چند بار هم سرور شو عوض کردم اما نشد
چرا کسی جواب نمی ده یعنی هیچ راهی نیست
سلام.
من از این کد برای ارسال ایمیل تو برنامه هام استفاده میکنم. ولی تا حالا نیاز نشد از اتچ توش استفاده کنم ولی فکر کنم اتچ هم راحت می فرسته.
این کد از SMTP گوگل استفاده می کنه که هیچ وقت هم بسته نمی شه.
کد:
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
سلام mbza11 من میخوام فایل بفرسته
این کد ارور میده این خط SendEmailGmail = .Send
سلام.
من دارم ازش استفاده می کنم و ارور نمیده.
راستی مقادیر myName@gmail.com و myPassword رو با آدرس و رمز ایمیلت عوض کردی. برای استفاده از این کد باید حتما تو گوگل یه میل داشته باشی.
mbza11 نوشته است:سلام.
من دارم ازش استفاده می کنم و ارور نمیده.
راستی مقادیر myName@gmail.com و myPassword رو با آدرس و رمز ایمیلت عوض کردی. برای استفاده از این کد باید حتما تو گوگل یه میل داشته باشی.
نه من ایمیل از گوگل ندارم شاید به خاطر اون بوده
حالا چطوری میشه باهاش فایل ارسال کرد؟
نقل قول: من از این کد برای ارسال ایمیل تو برنامه هام استفاده میکنم. ولی تا حالا نیاز نشد از اتچ توش استفاده کنم ولی فکر کنم اتچ هم راحت می فرسته.
این کد از SMTP گوگل استفاده می کنه که هیچ وقت هم بسته نمی شه.
روش جالبیه . آقا و یا خانوم دمت گرم
کسی می دونه چطوری میشه باهاش فایل ارسال کرد؟
سلام.
Iron_Fist نوشته است:روش جالبیه . آقا و یا خانوم دمت گرم
من آقام.
محسن جان این هم یه مثال با همون کدها که قادر به ارسال فایل (اتچ) هم هست.
روشش خیلی راحته، اگه تعداد فایل های اتچ زیاد بود می تونی با آرایه به تابع بفرستی و اونجا با یه حلقه همه رو Add کنی.
[
attachment=713]
mohsen_f نوشته است:نه من ایمیل از گوگل ندارم
ضمنا، ایمیلت رو با PM بده برات دعوت نامه بفرستم.
اگه کسی نظری در مورد این کدها داره یا تو استفاده ازشون براش مشکل ایجاد شد، همین جا بگه. باتشکر.