مشکل در ارسال ایمیل ( جیمیل )

[Veteran]

سلام دوستان من قبلا با این فایلی که پیوست کردم به راحتی ایمیل ارسال میکردم
اما جدیدا نمیشه و ارور میده !
توی این خط ارور میده

SendEmailGmail = .Send

لطفا بررسی کنید
ویا اگر روش دیگه ای سراغ دارید لطفا ارائه بدین

[Veteran]

کسی نیست به ما کمک کنه ؟

[MohammadGh2011]

سلام عليکم
تاپيک زير رو بررسي بفرماييد.
سورس ارسال جیمیل به زبان ویژوال بیسیک (http://barnamenevis.org/showthread.php?298272-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%AC%DB%8C%D9%85%DB%8C%D9%84-%D8%A8%D9%87-%D8%B2%D8%A8%D8%A7%D9%86-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84-%D8%A8%DB%8C%D8%B3%DB%8C%DA%A9)

[Veteran]

لینکی که دادید من رفتم اما اونم مشکل داره در ثانی من از همین مازول استفاده میکنم اگه فایل پیوست رو دانلود کرده باشین

[MohammadGh2011]

سلام

لینکی که دادید من رفتم اما اونم مشکل داره
چه مشکلي؟من که امتحان کردم به خوبي ايميل رو ميفرستاد.:متفکر:

در ثانی من از همین مازول استفاده میکنم اگه فایل پیوست رو دانلود کرده باشین
خير من فايل شما رو نديدم ،گفتم شايد اين راهنماييتون کنه.


به هرحال موفق باشيد

[Veteran]

این کد On Error Resume Next باعث میشه اگه برنامه خطا میخواست بده به کار خودش ادامه بده و صرف نظر کنه

چون این برنامه شما یا همون لینکی که معرفی کردید مشکل داره با این خطا مواجه میشیم

MsgBox "ÈÑäÇãå ÞÇÏÑ Èå ÇÑÓÇá Çíãíá äãí ÈÇÔÏ ˜áíå í ãæÇÑÏ ÑÇ ˜ ˜äíÏ", vbInformation, "Error Sending"

فونت مشکل داره
اینو میگه
برنامه قادر به ارسال ایمیل نمیباشد کلیه موارد را چک کنید
برای من مشکل داره !
اطلاعات رو هم درست وارد میکنم
به این خط گیر میده SendEmailGmail = .Send
the transport failed to connect to the server