[VB]שליחת מייל

[B1ackSn0w]

מישהו יודע איך אפשר לבצע שליחה של מייל דרך VB לחשבון ב- Gmail, בלי שיהיה צורך ב- Outlook מותקן?
ניסיתי, ואני לא מצליח... גיליתי גם שאין לי את ה- reference בכלל, ואין לי מושג מאיפה מביאים אותו...

תודה רבה, זה חשוב.

[U2tr4x]

אני יודע דרך C# אחי..

[B1ackSn0w]

אני חייב דרך VB.

[B1ackSn0w]

UP?.

[ToMeR]

תנסה את זה-
http://www.tek-tips.com/faqs.cfm?fid=179
או שתנסה לחפש בגוגל..

[Someone Awesome]

http://www.google.co.il/search?q=vis...ient=firefox-a

אתה צריך לשלוח דרך POP, לפי מה שאני רואה אתה צריך להוריד איזשהו מערכת מוכנה לזה כי אין כלי מובנה ב-VB.

[JsT]

הינה משהו שיעזור לך
http://www.astahost.com/info.php/Sen...mtp_t5431.html

[B1ackSn0w]

תודה לכולם, מצאתי כבר את כל הדברים האלה.

הצלחתי להשיג את הספרייה של CDO 1.21, וזה הקוד שאני משתמש בו:

Dim objmessage As Object

Set objmessage = CreateObject("CDO.Message")
objmessage.Subject = "Bla bla"
objmessage.From = "shahaf1312@nana10.co.il"
objmessage.To = "her.shahaf@gmail.com"
objmessage.TextBody = "bla bla text"

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objmessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objmessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.nanamail.co.il"

'Server port (typically 25)
objmessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objmessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objmessage.Send

יש לי שגיאה ב-

Set objmessage = CreateObject("CDO.Message")

"Automation Error.
The specified module could not be found."