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

[Iron_Fist]

متاسفانه یه مشکلی که داره اینه که اگه فایروال فعال باشه تو فرستادن
مشکل ایجاد می شه ( البته اگه فایل بخوایم ضمیمه نامه بکنیم )

[mbza11]

سلام.

متاسفانه یه مشکلی که داره اینه که اگه فایروال فعال باشه تو فرستادن
مشکل ایجاد می شه ( البته اگه فایل بخوایم ضمیمه نامه بکنیم )

به خاطر این هست که کد از فایل CDOSys استفاده می کنه و چون برنامه به عنوان یکی از سرویس های مجاز استفاده از کننده از این Dll برای ارسال فایل که در ویندوز تعریف می شن (مثل Outlook یا یه سری برنامه های کار با میل) نیست، این مشکل پیش میاد. البته همونطوری هم که خودتون اشاره کردین فقط در هنگام ارسال فایل یا اتچ مشکل ایجاد می شه و در هنگام ارسال متن عادی هیچ مشکلی نداره.

[ΛΛ Θ l-l $ Σ Ω]

mbza11 دستت دردنکه برنامت واقعا عالی بود

[ΛΛ Θ l-l $ Σ Ω]

من باهاش فایل ارسال کردم اما فایروال جلوشو نگرفت!!!
درضمن میشه ایمیل رو برای ایمیل های یاهو هم فرستاد

[mbza11]

سلام.

من باهاش فایل ارسال کردم اما فایروال جلوشو نگرفت!!!
درضمن میشه ایمیل رو برای ایمیل های یاهو هم فرستاد

بعضی فایروال ها گیر میدن مثل مک آفی (بعضی ورژن ها). من خودم با فایروال پاندا مشکلی ندارم.
آره برای یاهو هم میشه فرستاد. بعضی وقت ها ممکنه میل تو بالک یاهو بره که خودم هم نفهمیدم چرا اینجوری میشه.
برای هات میل رو نمی دونم چون تست نکردم.

[sepehrEZ]

آقايون اين سورس ها هيچ كدومشون تو سيستم بنده عمل نكردند و توي همون خطي براي سند كردن هستش ارور مي دن.آنتي و .. هم ندارم.فاير وال ويندوز هم غير فعال هستش.
تو رو خدا يكي كمك كنه.

[yeketaz]

برای من هم همون خط خطا می ده

[yeketaz]

کد:

Sub SendMail(Sender, Subject, Reciever , Text, Password , AttachFile)
    If Sender <> "" Or Password <> "" Then
        
        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
    Else
        MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
    End If
End Sub
Sub Main
SendMail "YourGmailAddress","Subject","Reciver","Text","YourGMailPassword","AttachFile"
End Sub

اینا کدهای vbs همین برنامه هستند که با کمی تغییر این شکلی شدند

البته من اینا رو امتحان نکردم ولی خطا هم نداره

[jh[v]

سلام از کد خیلی به درد به خوروتون خیلی ممنونم ولی اگه می شه یه توضیح کوچولویی هم راجع بهش بدید ممنون می شم مثلا این که ("CDO.Message")
چیه ؟ یا مظنورتون از schema = "http://schemas.microsoft.com/cdo/configuration/"
چیه ؟
اگه این کارو بکنی کمک خیلی بزرگی بهم کردی ؟
راستی اگه بخواهی برای ادرس زیر ایمیل کنی چی کار باید بکنی ؟ myname @ company .org
اینم میل منه s_aftabi@yahoo.com
خیلی مرررررررررررررررررررررررررررررسی

[mehraban]

Send = mdlMail.SendMail(txtSender.Text, txtSubject.Text, txtReciver.Text, txtText.Text, txtPassword.Text, txtAttach.Text
آقاي mbza11 ميشه بگيد كه چرا اين خط error ميده؟ (sendmail.zipاين برنامه رو ميگم)

[mehraban]

چرا اين خطش errorميده؟ ميشه كمكم كنيد؟ SendEmailGmail = .Send