احد يساعدني... محترفين الفجول بيسك 6

[مصطفى 151]

احد يساعدني ....ارسال رسالة الى الايميل yahoo بالفيجوال بيسك6 . بس يكون بعيدا عن الاوتلوك و الادوات المعقدة متل الوينسوك)))
وشكراااااااااااااااااااااااا

[coco-wawa]

يوجد أداة ActiveX تحملها من هنا
http://www.chilkatsoft.com/download/EmailActiveX.msi

وهذا مثال كود يستعمل الأداء في إرسال بريد إلكتروني


' This Visual Basic example program sends mail with
' a GIF file attachment.
Private Sub SendMail_Click()

' Create a MailMan instance to send email
Dim mailman As New ChilkatMailMan2
' Unlock the email component
mailman.UnlockComponent "UnlockCode"

' Change this to your SMTP server.
' Depending on your SMTP server, you may not need
' the SMTP login or SMTP password.
mailman.SmtpHost = "smtp.earthlink.net"
mailman.SmtpUsername = "MYUSERNAME"
mailman.SmtpPassword = "MYPASSWORD"

' Create an email for sending
Dim email As New ChilkatEmail2
' Set the email subject and body
email.Subject = "test"
email.Body = "this is a test" & vbCrLf & "line 2" & vbCrLf & "-Bill"
email.AddTo "John Doe", "john@chilkatsoft.com"
email.FromAddress = "bill@chilkatsoft.com"
email.FromName = "Bill Doe"

' Add a file attachment to the mail.
email.AddFileAttachment "dude.gif"

' Send mail. Returns 1 if successful, 0 if failed.
success = mailman.SendEmail(email)
If (success = 0) Then
MsgBox mailman.LastErrorText
End If


End Sub


يعني في غاية البساطة