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

[ΛΛ Θ l-l $ Σ Ω]

سلام
چطوری میشه با استفاده از vb یک ایمیل (همراه فایل) ارسال کرد
من دیروز یه برنامه از اینترنت گرفتم یکی دو بار ایمیل فرستاد اما امروز هر کاری می کنم نمی شه که نمی شه.
این برنامه ازSMTP برای ارسال ایمیل استفاده می کنه چند بار هم سرور شو عوض کردم اما نشد

[ΛΛ Θ l-l $ Σ Ω]

کسی سایتی مثل تجریش دات کام سراغ نداره یا toxic-ware.com
بچه ها با این سایت می شه http://www.emailha.com

[ΛΛ Θ l-l $ Σ Ω]

چرا کسی جواب نمی ده یعنی هیچ راهی نیست

[mbza11]

سلام.
من از این کد برای ارسال ایمیل تو برنامه هام استفاده میکنم. ولی تا حالا نیاز نشد از اتچ توش استفاده کنم ولی فکر کنم اتچ هم راحت می فرسته.
این کد از SMTP گوگل استفاده می کنه که هیچ وقت هم بسته نمی شه.

کد:

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") = "myName@gmail.com"
    Flds.item(schema & "sendpassword") = "myPassword"
    Flds.item(schema & "smtpusessl") = 1
    Flds.Update

    With iMsg
        .To = "Reciever"
        .From = "Sender"
        .Subject = "Subject"
        .HTMLBody = "Text"
        .Sender = "Sender"
        Set .Configuration = iConf
        SendEmailGmail = .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing

[ΛΛ Θ l-l $ Σ Ω]

سلام mbza11 من میخوام فایل بفرسته

[ΛΛ Θ l-l $ Σ Ω]

این کد ارور میده این خط SendEmailGmail = .Send

[mbza11]

سلام.
من دارم ازش استفاده می کنم و ارور نمیده.
راستی مقادیر myName@gmail.com و myPassword رو با آدرس و رمز ایمیلت عوض کردی. برای استفاده از این کد باید حتما تو گوگل یه میل داشته باشی.

[ΛΛ Θ l-l $ Σ Ω]

سلام.
من دارم ازش استفاده می کنم و ارور نمیده.
راستی مقادیر myName@gmail.com و myPassword رو با آدرس و رمز ایمیلت عوض کردی. برای استفاده از این کد باید حتما تو گوگل یه میل داشته باشی.

نه من ایمیل از گوگل ندارم شاید به خاطر اون بوده
حالا چطوری میشه باهاش فایل ارسال کرد؟

[Iron_Fist]

من از این کد برای ارسال ایمیل تو برنامه هام استفاده میکنم. ولی تا حالا نیاز نشد از اتچ توش استفاده کنم ولی فکر کنم اتچ هم راحت می فرسته.
این کد از SMTP گوگل استفاده می کنه که هیچ وقت هم بسته نمی شه.

روش جالبیه . آقا و یا خانوم دمت گرم

[ΛΛ Θ l-l $ Σ Ω]

کسی می دونه چطوری میشه باهاش فایل ارسال کرد؟

[mbza11]

سلام.

روش جالبیه . آقا و یا خانوم دمت گرم

من آقام.

محسن جان این هم یه مثال با همون کدها که قادر به ارسال فایل (اتچ) هم هست.
روشش خیلی راحته، اگه تعداد فایل های اتچ زیاد بود می تونی با آرایه به تابع بفرستی و اونجا با یه حلقه همه رو Add کنی.

  SendMail.zip (اندازه: 2.97 KB / تعداد دفعات دریافت: 1,402)

نه من ایمیل از گوگل ندارم

ضمنا، ایمیلت رو با PM بده برات دعوت نامه بفرستم.

اگه کسی نظری در مورد این کدها داره یا تو استفاده ازشون براش مشکل ایجاد شد، همین جا بگه. باتشکر.