(۱۱-دى-۱۳۸۹, ۱۳:۵۹:۲۱)SURIV نوشته است: [ -> ]دوستان این مشکل همه هست
من خیلی وقته دنبال کد ارسال ایمیل هسم ولی هر جا رفتم همه مشکل داشتن
لطفا یکی از اساتید راهنمایی بکنن.
سلام.
از کدی که در همین تاپیک هست استفاده کنید.
nekooee مشکل شما رو متوجه نشدم. واضح تر بیان کنید.
سلام
منظورتون کدوم کد هست؟
من10 تا کد ارسال ایمیل دارم که حتی یکدومشونم کار نمیکنه
بعضیا که اصلا کامپایل نمیشن میگن فایل msoutl.olb نیاز هست که من هر جا گشتم پیدا نکردم
من می خوام یه کد توی کی لاگر استفاده کنم که یه فایل TXT رو به ایمیلم ارسال کنه
ضمنا کدی که به یاهو ایمیل بزنه رو می خوام
سلام.
دیگه نمیدونم چطور باید بگم از کدی که در این تاپیک هست استفاده کنید.
کد:
'in module
Option Explicit
'start SendMail code
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean
If Sender <> "" Or Password <> "" Then
frmMain.MousePointer = 11
Dim iMsg, iConf, Flds, schema, SendEmailGmail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Sender
Flds.Item(schema & "sendpassword") = Password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
DoEvents
.To = Reciever
.From = Sender
.Subject = Subject
.HTMLBody = Text
.Sender = Sender
.Organization = "S.M.B Productions"
.ReplyTo = Sender
If AttachFile <> "" Then
.AddAttachment (AttachFile)
End If
Set .Configuration = iConf
SendEmailGmail = .Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
frmMain.MousePointer = 0
SendMail = True
Else
MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
SendMail = False
End If
End Function
'end SendMail code
کد:
'in Form
Option Explicit
Private Sub cmdAttach_Click()
CD.ShowOpen
If CD.FileName <> "" Then
txtAttach.Text = CD.FileName
End If
End Sub
Private Sub cmdSend_Click()
Dim Send As Boolean
Send = mdlMail.SendMail(txtSender.Text, txtSubject.Text, txtReciver.Text, txtText.Text, txtPassword.Text, txtAttach.Text)
MsgBox "Send Result= " & Send, vbInformation, "Sending Mail"
End Sub
سلام دوستان .
مشکل ارسال کاراکتر های فارسی رو حل کردم ، اما مشکل با VBCRLF یا همون خط جدید هنوز پا برجاست .
کسی اگه میتونه حلش کنه .
موفق باشید .
همگی خسته نباشید
دوستان من میخواستم با vb فک ایمیل بنویسم ولی SMTP رایگان پیدا نکردم تو همین سایت گفته بودین که SMTP سایت های یاهو و گوگل رایگان و سرویس pop3 رایگان ارائه میدن ولی ظاهرا اینطور نیست زمانی که به smtp گوگل smtp.gmail.com رو پورت 25 کانکت میشم helo ارسال میکنم جواب میگیرم Mail From که ارسال میکنم چنین چیزی دریافت میکنم
کد:
530-5.5.1 Authentication Required. Learn more at
530 5.5.1 http://mail.google.com/support/bin/answer.py?answer=14257 e4sm66914obg.9
که میگه باید اجازه سرور داشته باشید که فکر میکنم به این معناست که SMTP گوگل رایگان نیست
و برای یاهو هم به smtp.mail.yahoo.com رو پورت 25 کانکت میشم که این هم مثل گوگل زمانی که Mail From ارسال میکنم این جوابو میده
کد:
530 authentication required - for help go to http://help.yahoo.com/help/us/mail/pop/pop-11.html
که این هم مثل گوگل میگه باید اجازه سرور داشته باشید به این معناست که SMTP یاهوهم رایگان نیست
و روی SMTP های دیگر یاهوهم باز به همین شکل است
اگه کسی SMTP رایگان سراغ داره به ماهم بده !!!
من نمیدونم وقتی یاهو و گوگل SMTP رایگان ندارن چرا همه جا همه کس میگن رایگانه !!!
(۰۴-بهمن-۱۳۸۹, ۱۹:۰۴:۳۵)1120 نوشته است: [ -> ]سلام دوستان .
مشکل ارسال کاراکتر های فارسی رو حل کردم ، اما مشکل با VBCRLF یا همون خط جدید هنوز پا برجاست .
کسی اگه میتونه حلش کنه .
موفق باشید .
واسه رفع مشکل خط جدید کافیه این کد رو برای متغیری که میخوای ارسال کنی بنویسی.
کد:
strText = replace(strText,vbcrlf,"<br>")
(۰۸-دى-۱۳۹۰, ۰۴:۴۰:۵۹)HamedFaa نوشته است: [ -> ] (۰۴-بهمن-۱۳۸۹, ۱۹:۰۴:۳۵)1120 نوشته است: [ -> ]سلام دوستان .
مشکل ارسال کاراکتر های فارسی رو حل کردم ، اما مشکل با VBCRLF یا همون خط جدید هنوز پا برجاست .
کسی اگه میتونه حلش کنه .
موفق باشید .
واسه رفع مشکل خط جدید کافیه این کد رو برای متغیری که میخوای ارسال کنی بنویسی.
کد:
strText = replace(strText,vbcrlf,"<br>")
سلام.
میتونیم به جای .HTMLBody = Text در کد .TextBody = Text قرار بدیم.
اما صفحه میل دیگه خاصیت htmlی خودشو از دست میده.
اقای ویلسون درست میگه گوگل قبلا رایگگان بود و برنامه من هم برای ارسال ایمیل خووب کار میکرد اما دیگه رایگان نیست.حالا کسی یه سرور جدید سراغ نداره؟msn میگن رایگانه کسی میدونه چطور باید تو کد ازش استفاده کرد بجای جیمیل؟هرکی میتونه کمک کنه
سلام.
پورت رو رو 587 میذارید؟
salam
damet garm
vaghen jaleb bood. kheyli be darde man khord
khoda be shoma kheir bede
mohammad sharafi
سلام ببخشید من انجام دادم کار کرد حالا چطوری باید برای چند نفر همزمان ارسال کد
در ظمن برای ارسال متن فارسی مشکل داره
چطوری می توان با سرور یاهو ارسال کرد
مرسی زبان فارسی را دیم زدی
مرسی زبان فارسی رو دیدم زدی