كمك درباره : ارسال ايميل به جيميل بوسيله ويژوال بيسيك

[ali 711]

با سلام خدمت دوستان و كاربران انجمن برنامه نويس
اساتيد لطفا كمك كنند.!!!
من چطور ميتونم با ويژوال بيسيك به جيميل ايميل بفرستم بدون هيچ كامپونت DLL اي
من گوگل و انجمن رو زيرو رو كردم ولي يك پستش هم نبود كه جواب بده عملي باشه.
من از اين سورس استفاده ميكنم ولي اصلا نمي فرسته.!!!!!!!:گریه:اساتيد لطفا كمك كنند خيلي ضروري و فوريه.!!!:گریه:
پيشاپيش ممنون از عزيزاني كه كمك ميكنند.

[hmbarnamenevis]

اگر بخواهید با Outlook بفرستید اینگونه است:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub sendMail()
ShellExecute 0, "open", "mailto:hamidreza902@gmail.com?body=First Paragraph. %0A%0A Second paragraph. %0A%0A Third Paragraph etc.", 0, 0, 1
End Sub

[ali 711]

سلام
ممنون از زحمات شما
ولي مي خواهم بدون هيچ برنامه شخصي در ويندوز مثل Outlook استفاده باشه.!!!

من از اين سورس استفاده ميكنم ولي به موقع ارسال ايميل اين ارورو ميده لطفا كمكم كنيد.!!!
خيلي ضروريه.!!!
فايل txt ضميمه هم بهش اضافه كردم ولي به اين خط كد ارور ميده.
SendEmailGmail = .send

[hmbarnamenevis]

Sub SendMessage(MailFrom, MailTo, Subject, Message, StrAttach As String)
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")


'This section provides the configuration information for the remote SMTP server.


With ObjSendMail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60


' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password.
' .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
End With


ObjSendMail.AddAttachment StrAttach
ObjSendMail.Configuration.Fields.Update



'End remote SMTP server configuration section==
ObjSendMail.To = MailTo
ObjSendMail.Subject = Subject
ObjSendMail.From = MailFrom


' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = Message
'ObjSendMail.TextBody = Message


ObjSendMail.Send
MsgBox "send mail.", vbInformation
Set ObjSendMail = Nothing
End Sub

[ali 711]

ممنون از پاسخ گويتون اما ميشه در غالب سورس برام بزاريد
سورس بالايي من اين ارورو ميده :
http://barnamenevis.org/attachment.php?attachmentid=94933&d=1352923619

[ali 711]

اون كد اصلا ايميل نمي فرسته لطفا شما هم يه محبت كنيد تست كنيد برام بزاريد:گریه:
اين سه پرت هم روش امتحان كردم ولي جواب نميده
465 587 25
يك دنيا ممنونم از شما

[hmbarnamenevis]

دوست عزیز این هم ارسال ایمیل با قابلیت ضمیمه کردن فایل:
121970

دانلود: 121971

[ali 711]

ممنون دوست عزيز متاسفانه سورس كار نميكنه.!!!
ميشه يه كد راحت تر بدي يا روي آن بالايي مال خودم كار كني ممنون از شما
:گریه:

اين ارورو ميده :
the transport failed to connect to the sever
فكر كنم يه OCX لازم داشته باشه نميدونم.!!!

[hmbarnamenevis]

نه شما هیچ OCX ای لازم ندارید بلکه باید یه فایل DLL که نامش Microsoft CDO for windows 2000 Library را باید به پروژه اضافه کرده باشید. در پنجره ی Referense اگر این گزینه تیک خورده باشد دیگر هیچ فایل OCX ای نباید ضمیمه پروژت باشد.
من خودم برنامه رو امتحان کردم و جواب گرفتم.
این Error شما مربوط به تنظیمات سرور است که در زمان اجرای برنامه باید به برنامه بدهید.
اگر از یک gmail می خواهید به ایمیل های دیگر ، ایمیل ارسال کنید باید طبق عکس تنظیمات را قرار دهید. مطمئن باشید مشکل شما در این تنظیمات است. (به خصوص User و Pass را درست وارد کنید)

[hmbarnamenevis]

اینم Dll مربوطه: 121973

[ali 711]

ممنون از شما:قلب:

اما دوباره ارور ميده و ارور
Error in loding dll
بايد چكار كنم.!!!
يك دنيا ممنون

[ali 711]

دوست من ميشه روي اين سورس تمركز كني من اينو خيلي لازم دارم.!!!

[meys34]

سورستون مشکل نداره... مشکل از پورت هست که نمیتونه وصل بشه...

این رو چک کنید تو اکسپلورر ببینید اصلا وصل میشه....

https://smtp.gmail.com:465/

[hmbarnamenevis]

دوست عزیز من سورس شما رو هم چک کردم هیچ گونه مشکلی وجود نداشت. و ایمیل فرستاد.
شما دو کار را انجام دهید: -از منوی Project گزینه ی References را انتخاب کنید و بعد تیک گزینه ی Microsoft CDO (از هر نوعی که بود) را انتخاب کنید و بعد برنامه را اجرا کنید



سورستون مشکل نداره... مشکل از پورت هست که نمیتونه وصل بشه...

این رو چک کنید تو اکسپلورر ببینید اصلا وصل میشه....

https://smtp.gmail.com:465/

- برنامه از لحاظ پورت مشکلی ندارد چون من باهاش ارسال موفق داشتم. شما فقط در وهله ی دوم در زمان اجرا User و Pass جیمیل خود را با دقت وارد کنید.

[meys34]

سلام

برنامه از نظر پورت مشکل نداره... اینترنت ایشونه که از نظر پورت مشکل داره...

کلا ISP ها به https زیاد گیر میدن (گوگل هم که اصلا http ساپورت نمیکنه)
(منظورم از https این قسمت کد است: ... smtpusessl") = True 'Use SSL for the connection (True or False))

بنده هم به همین روش ارسال کردم و به همین خاطر میگم مشکل از اینترنت ایشون هست....


دوست عزیز من سورس شما رو هم چک کردم هیچ گونه مشکلی وجود نداشت. و ایمیل فرستاد.
شما دو کار را انجام دهید: -از منوی Project گزینه ی References را انتخاب کنید و بعد تیک گزینه ی Microsoft CDO (از هر نوعی که بود) را انتخاب کنید و بعد برنامه را اجرا کنید

در ضمن نیازی به refrence هم نیست... چون ایشون از دستور CreateObject("CDO.Message") استفاده کردند...

[ali 711]

سلام به همه دوستان و اساتيد محترم
دوستان ببخشيد ممنون از همتون ولي من يوزر پسوردم رو به اين صورت تايپ ميكنم ببينيد درسته.!!!
User: alizohrabi2013@gmail.com
Pass:123456789963
smpt.gmail.com
Port : 465
To: alizohrabi2013@gmail.com
Attach: C:\text.txt
دوستان و اساتيد گرامي من اطلاعاتم رو به اينصورت كامل ميكنم مشكلي داره كه ايميل نمي كنه بعد اگر در برنامه ام اون كامپونت رو ادد كنم بعد از كامپايل اگر رو سيستم طرف اون كامپونت ها نباشه ارور نميده بعد رو ويندوز سون و هشت و اكس پي جواب ميده.!!!
ممنون از همه:قلب:

[yashar_2006]

سلام
سورس نوشته شده رو توی ویندوز 7 تست کردم بدون ایراد ارسال کرد اما توی ویندوز xp ارور Error in loding dll میده
کسی راه حلی نداره ؟