کمک فوری

[tk1993]

با سلام خدمت دوستان و اساتید انجمن
عزیزان من یه برنامه ای دارم که یه قسمتش مبوط میشه به یک فرم که کاربر داخل دوتا تکست باکس نام و ایمیلش رو میزنه.
حالا میخوام وقتی مثلا" روی دکمه سند کلیک کرد این نام و ایمیل به آدرس ایمیلم ارسال بشه.این کار چطور ممکنه.ممنون میشم راهنمایی کنید.
بد جور کارم گیر این یه فرم هست.
تشکر

[امین مستانی]

سلام

این کد برای جیمیل جواب میده

Public Function SendMail(ByVal sMailSender As String, _
ByVal sMailSenderPassword As String, _
ByVal sMailSubject As String, _
ByVal sMailReciever As String, _
ByVal sMailText As String, _
ByVal sMailAttachFile As String) As Boolean

On Error GoTo EndLine
Dim ObMsg As Object
Dim ObConf As Object
Dim Flds As Object
Dim StrSchema As String
Dim blnRet As Boolean

blnRet = False

If sMailSender = vbNullString Or sMailSenderPassword = vbNullString Then
GoTo EndLine
End If

Set ObMsg = CreateObject("CDO.Message")
Set ObConf = CreateObject("CDO.Configuration")
Set Flds = ObConf.Fields



StrSchema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(StrSchema & "sendusing") = 2
Flds.Item(StrSchema & "smtpserver") = "smtp.gmail.com"
Flds.Item(StrSchema & "smtpserverport") = 465
Flds.Item(StrSchema & "smtpauthenticate") = 1
Flds.Item(StrSchema & "sendusername") = sMailSender
Flds.Item(StrSchema & "sendpassword") = sMailSenderPassword
Flds.Item(StrSchema & "smtpusessl") = 1
Flds.Update

With ObMsg
.To = sMailReciever
.From = sMailSender
.Subject = sMailSubject
.HTMLBody = sMailText
.Sender = sMailSender
.Organization = "S.M.B Productions"
.ReplyTo = sMailSender
If sMailAttachFile <> vbNullString Then
.AddAttachment (sMailAttachFile)
End If
Set .Configuration = ObConf
.Send
End With

blnRet = True

EndLine:
Set ObMsg = Nothing
Set ObConf = Nothing
Set Flds = Nothing
SendMail = blnRet
End Function

Private Sub Command1_Click()
SendMail "adres email ferestande", _
"ramz email ferestande", _
"subject", _
"email girandeh", _
"matn morede nazar", _
"file attach"
End Sub


یا علی

[MohammadGh2011]

سلام عليکم


کمک فوری
از عناوين مناسب براي تاپيکهاي خود استفاده کنيد.


سورس ارسال ايميل با Gmail (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&p=1308269&viewfull=1#post1308269)
سورس ارسال ايميل با Yahoo (http://barnamenevis.org/showthread.php?329711-%D9%81%D8%B1%D8%B3%D8%AA%D8%A7%D8%AF%D9%86-%D8%A7%DB%8C%D9%85%DB%8C%D9%84-%D8%A8%D8%A7-%DB%8C%D8%A7%D9%87%D9%88&p=1451114&viewfull=1#post1451114)



موفق باشيد