View Full Version : سوال: سورس کد ارسال ایمیل به وسیله ی ویژوال بیسیک 6
online98
شنبه 29 بهمن 1390, 16:36 عصر
با عرض سلام و خسته نباشید فراوان
خدمت تمامی دوستان و اساتید گرامی
شرمنده تاپیک ایجاد میکنم
من شدیدا دنبال سورس ویژوال بیسک هستم که بشه با اون ایمیل ارسال کردم
اینترنت رو زیر و رو کردم ولی هیچکدوم کار نداد
این تاپیک رو ایجاد کردم که اگه کسی سورس سلام داره اینجا بذاره
اگه Fake میل باشه که دیگه چه بهتر
ارسال با جیمیل رو تست کردم نشد به خط .send گیر میداد
خیلی ممنون میشم اگه کمکم کنید:خجالت:
با تشکر
خداحافظ
online98
یک شنبه 30 بهمن 1390, 00:18 صبح
کسی نبود ؟
سید حمید حق پرست
یک شنبه 30 بهمن 1390, 00:31 صبح
سلام
واسه یاهو میخوای یا جیمیل (واسه جیمیل میشه اما یاهو تا جایی که بدونم به این راحتی ها نمیشه)
موفق باشی
یا علی (ع)
online98
یک شنبه 30 بهمن 1390, 14:54 عصر
ممنون
خودم پیدا کردم
درجه 1
Veteran
یک شنبه 30 بهمن 1390, 17:22 عصر
ممنون
خودم پیدا کردم
درجه 1
میشه بزارین ماهم استفاده کنیم ؟
سید حمید حق پرست
یک شنبه 30 بهمن 1390, 17:31 عصر
دوست عزیزمون راست میگه اگه امکانش هست بزارید ما هم استفاده کنی
ممنون
یا علی (ع)
_behnam_
یک شنبه 30 بهمن 1390, 19:36 عصر
بفرماید...
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
' Set your Yahoo email address
oSmtp.FromAddr = "myid@yahoo.com"
' Add recipient email address
oSmtp.AddRecipientEx "support@emailarchitect.net", 0
' Set email subject
oSmtp.Subject = "test email from Yahoo mail account"
' Set email body
oSmtp.BodyText = "this is a test email sent from VB 6.0 project with Yahoo email"
' Yahoo SMTP server address
oSmtp.ServerAddr = "smtp.mail.yahoo.com"
' For example: your email is "myid@yahoo.com", then the user should be "myid@yahoo.com"
oSmtp.UserName = "myid@yahoo.com"
oSmtp.Password = "yourpassword"
' Because Yahoo deploys SMTP server on 465 port with direct SSL connection.
' So we should change the port to 465.
oSmtp.ServerPort = 465
' Detect SSL/TLS automatically
oSmtp.SSL_init
MsgBox "start to send email ..."
If oSmtp.SendMail() = 0 Then
MsgBox "email was sent successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If
اینم لینک برنامه مورد نیاز واسه تصب DLL (http://www.emailarchitect.net/webapp/download/easendmail.exe)
pesarariayi
سه شنبه 23 اسفند 1390, 12:36 عصر
سلام اقا بهنام منم شدیدا لازم دارم .این کد رو که گذاشتید ارور میگیره فایل دی ال ال رو هم گرفتم ولی کار نکرد.میشه بیشتر توضیح بدید؟میگن smtp گوگل و یاهو مجانی نیست.خودمم قبلا برنامه نوشته بودم ایمیل به گوگل ارسال میکرد ولی دیگه کار نمیکنه. از msn هم میشه استفاده کرد؟ کسی بلده راهنمایی کنه مرسی
M.T.P
سه شنبه 23 اسفند 1390, 13:07 عصر
اینم تابع کامل و بدون نقص برای ارسال ایمیل:
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
' send one copy with Google SMTP server (with autentication)
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
MohammadGh2011
سه شنبه 23 اسفند 1390, 15:24 عصر
سلام عليکم
اگر ميخواهيد با اکانت ياهو ايميل بفرستيد پست 6 تاپيک زير رو بررسي و دانلود کنيد.
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#post1451114
موفق باشيد
amirabdi
شنبه 12 فروردین 1391, 13:37 عصر
با سلام خدمت دوستان لطفا یکی من رو راهنمایی کنه!
چطوری میتونم با این کدها ایمیلم رو بفرستم؟
یعنی کجا ادرس ایمیلم رو بزنم؟
amirabdi
شنبه 12 فروردین 1391, 13:39 عصر
البته با کد های بالا(9#) که برنامه را با تابع نوشته چطوری میتونم ایمیلو رو بفرستم؟
اصلا چطوری باید از این تابع استفاده کنم؟
MohammadGh2011
شنبه 12 فروردین 1391, 21:19 عصر
با سلام خدمت دوستان لطفا یکی من رو راهنمایی کنه!
چطوری میتونم با این کدها ایمیلم رو بفرستم؟
یعنی کجا ادرس ایمیلم رو بزنم؟
البته با کد های بالا(9#) که برنامه را با تابع نوشته چطوری میتونم ایمیلو رو بفرستم؟
اصلا چطوری باید از این تابع استفاده کنم؟
سلام عليکم
دوست عزيز اصلا به پست 10 توجه نکرديا.
جيميل که تو سايت گذاشتم و با يه جستجو پيدا ميشه ، براي ياهو که خيليا مشکل دارند و نميدونند چه جوريه به لينک زير مراجعه کنند در پست 6 همه چيز رو توضيح دادم و يک سورس هم گذاشتم:
Send Email using Yahoo Account (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)
موفق باشيد
good_boy
یک شنبه 13 فروردین 1391, 20:51 عصر
اینم تابع کامل و بدون نقص برای ارسال ایمیل:
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
' send one copy with Google SMTP server (with autentication)
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
سلام
من زیاد وارد نیستم از این کد چطور میشه استفاده کرد
با جزئیات لطفا توضیح بدین با تشکر
MohammadGh2011
یک شنبه 13 فروردین 1391, 21:24 عصر
سلام
من زیاد وارد نیستم از این کد چطور میشه استفاده کرد
با جزئیات لطفا توضیح بدین با تشکر
سلام عليکم
دوستان اصلا به پست هايي که من در اين تاپيک زدم توجه ميکنيد (پست13و10)
من سورس کامل در اختيارتون قرار دادم بعد شما ميپرسيد که چه طور از اين کدها استفاده کنم!:متفکر:
خب اون سورسي که من گذاشتم رو دانلود کنيد به راحتي ميتونيد باهاش ايميل بفرستيد.
M.T.P
یک شنبه 13 فروردین 1391, 23:57 عصر
سلام
من زیاد وارد نیستم از این کد چطور میشه استفاده کرد
با جزئیات لطفا توضیح بدین با تشکر
ببینید:
SendMail "yourmail@gmail.com", _
"123456789", _
"Onvane name", _
"Destination@yahoo.com", _
"salam ye zang bezan", _
""
خط اول آدرس ایمیل خودتون
خط دوم پسورد ایمیلتون
خط سوم تیتر یا عنوان نامه
خط چهارم آدرس ایمیل گیرنده
خط پنجم متن نامه
خط ششم هم چنانچه می خواید فایلی ضمیمه نامه بشه مسیرش رو داخل " " وارد می کنید.
سید حمید حق پرست
دوشنبه 09 مرداد 1391, 00:23 صبح
سلام علیکم
برای فرستادن از طریق یاهو فقط کافیه smtpserver را به یاهو تغییر دهید
موفق باشید
یا علی (ع)
سید حمید حق پرست
دوشنبه 16 مرداد 1391, 18:41 عصر
اینم تابع کامل و بدون نقص برای ارسال ایمیل:
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
' send one copy with Google SMTP server (with autentication)
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
سلام علیکم
دوستان با متن فارسی چرا مشکل داره . وقتی متن فارسی سند میکنم در یاهوو وقتی ایمیل باز میکنم متن بهم ریخته و علامت سوال هستش
لطفا راهنمایی کنید
به این تاپیک هم یه جواب بدید :
http://barnamenevis.org/showthread.php?355017-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-html-%D8%A8%D9%87-%D8%A7%DB%8C%D9%85%DB%8C%D9%84-%DB%8C%D8%A7%D9%87%D9%88
یا علی (ع)
سید حمید حق پرست
چهارشنبه 18 مرداد 1391, 01:19 صبح
سلام علیکم
دوستان کسی نیست جواب بده
یا علی (ع)
arenaw
چهارشنبه 18 مرداد 1391, 03:39 صبح
سلام علیکم
دوستان کسی نیست جواب بده
یا علی (ع)
سلام
فکر میکنم مشکل از ansi بودن متن شماست و شما باید احتمالا یونیکد بفرستی (راجع به utf-8 جستجو کن)
meys34
چهارشنبه 18 مرداد 1391, 23:26 عصر
سلام
فکر میکنم مشکل از ansi بودن متن شماست و شما باید احتمالا یونیکد بفرستی (راجع به utf-8 جستجو کن)
http://barnamenevis.org/showthread.php?355017-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-html-%D8%A8%D9%87-%D8%A7%DB%8C%D9%85%DB%8C%D9%84-%DB%8C%D8%A7%D9%87%D9%88&p=1567130&viewfull=1#post1567130
اینم عکسش:لبخند:
90962
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.