View Full Version : کمک فوری
tk1993
چهارشنبه 11 مرداد 1391, 21:10 عصر
با سلام خدمت دوستان و اساتید انجمن
عزیزان من یه برنامه ای دارم که یه قسمتش مبوط میشه به یک فرم که کاربر داخل دوتا تکست باکس نام و ایمیلش رو میزنه.
حالا میخوام وقتی مثلا" روی دکمه سند کلیک کرد این نام و ایمیل به آدرس ایمیلم ارسال بشه.این کار چطور ممکنه.ممنون میشم راهنمایی کنید.
بد جور کارم گیر این یه فرم هست.
تشکر
امین مستانی
پنج شنبه 12 مرداد 1391, 04:50 صبح
سلام
این کد برای جیمیل جواب میده
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
جمعه 13 مرداد 1391, 18:18 عصر
سلام عليکم
کمک فوری
از عناوين مناسب براي تاپيکهاي خود استفاده کنيد.
سورس ارسال ايميل با 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)
موفق باشيد
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.