ارسال ایمیل با ویژوال بیسیک

[Payman62]

دوستان این مشکل همه هست
من خیلی وقته دنبال کد ارسال ایمیل هسم ولی هر جا رفتم همه مشکل داشتن
لطفا یکی از اساتید راهنمایی بکنن.

سلام.
از کدی که در همین تاپیک هست استفاده کنید.

nekooee مشکل شما رو متوجه نشدم. واضح تر بیان کنید.

[SURIV]

سلام
منظورتون کدوم کد هست؟
من10 تا کد ارسال ایمیل دارم که حتی یکدومشونم کار نمیکنه
بعضیا که اصلا کامپایل نمیشن میگن فایل msoutl.olb نیاز هست که من هر جا گشتم پیدا نکردم
من می خوام یه کد توی کی لاگر استفاده کنم که یه فایل TXT رو به ایمیلم ارسال کنه
ضمنا کدی که به یاهو ایمیل بزنه رو می خوام

[Payman62]

سلام.
دیگه نمیدونم چطور باید بگم از کدی که در این تاپیک هست استفاده کنید.

کد:

'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

[1120]

سلام دوستان .

مشکل ارسال کاراکتر های فارسی رو حل کردم ، اما مشکل با VBCRLF یا همون خط جدید هنوز پا برجاست .

کسی اگه میتونه حلش کنه .

موفق باشید .

[W-I-L-S-O-N]

همگی خسته نباشید
دوستان من میخواستم با 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 رایگان ندارن چرا همه جا همه کس میگن رایگانه !!!

[HamedFaa]

سلام دوستان .

مشکل ارسال کاراکتر های فارسی رو حل کردم ، اما مشکل با VBCRLF یا همون خط جدید هنوز پا برجاست .

کسی اگه میتونه حلش کنه .

موفق باشید .

واسه رفع مشکل خط جدید کافیه این کد رو برای متغیری که میخوای ارسال کنی بنویسی.

کد:

strText = replace(strText,vbcrlf,"<br>")

[Payman62]

سلام دوستان .

مشکل ارسال کاراکتر های فارسی رو حل کردم ، اما مشکل با VBCRLF یا همون خط جدید هنوز پا برجاست .

کسی اگه میتونه حلش کنه .

موفق باشید .

واسه رفع مشکل خط جدید کافیه این کد رو برای متغیری که میخوای ارسال کنی بنویسی.

کد:

strText = replace(strText,vbcrlf,"<br>")

سلام.
میتونیم به جای .HTMLBody = Text در کد .TextBody = Text قرار بدیم.
اما صفحه میل دیگه خاصیت htmlی خودشو از دست میده.

[pesarariayi]

اقای ویلسون درست میگه گوگل قبلا رایگگان بود و برنامه من هم برای ارسال ایمیل خووب کار میکرد اما دیگه رایگان نیست.حالا کسی یه سرور جدید سراغ نداره؟msn میگن رایگانه کسی میدونه چطور باید تو کد ازش استفاده کرد بجای جیمیل؟هرکی میتونه کمک کنه

[Payman62]

سلام.
پورت رو رو 587 میذارید؟

[sharafi123]

salam
damet garm
vaghen jaleb bood. kheyli be darde man khord
khoda be shoma kheir bede
mohammad sharafi

[majid12376]

سلام ببخشید من انجام دادم کار کرد حالا چطوری باید برای چند نفر همزمان ارسال کد
در ظمن برای ارسال متن فارسی مشکل داره

---

چطوری می توان با سرور یاهو ارسال کرد

---

مرسی زبان فارسی را دیم زدی

---

مرسی زبان فارسی رو دیدم زدی