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

[amirhosseinmajd]

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

[krengaroo]

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

من یکی کاملشو دارم در اسرا وقت تو سایت میذارم

میخوام هکش کنم >>این سایت

[tecnocomputer]

تو فرستادن ميل به ياهو مشكل داره

[jafarabad]

سلام دوباره
همونطوری که قول داده بودم جدیدترین نسخه ارسال جی میل و ایمیل با شکل قشنگ رو براتون گذاشتم؟ فقط ارسال ایمیل فارسی کسی داره؟

[Payman62]

سلام.
جناب جعفر آباد ممنون از برنامه مفیدتون.

یه نکته باید خدمتتون عرض کنم. فایلی که قرار داده بودید حاوی ویروس sality بود. من فایل رو اصلاح کردم و مجدد قرار دادم تا سیستم بچه ها آلوده نشه.
شمام یه فکری به حال سیستمت بکن. چون ویروس سالیتی به شدت مسریه و کل سیستمت رو آلوده میکنه.

[PEA]

دمتون گرم!
پروژه تروجانم کامل شد!

[PEA]

تو فرستادن ميل به ياهو مشكل داره

بله من هم متوجه این مشکل شدم،
کلا برنامه ارور می ده!!!
کسی از دوستان می دونه مشکل کجاست؟

[Payman62]

سلام.
از جی میل استفاده کنید. چه اصراریه با یاهو میل بزنید.
جی میل هم smtp و هم pop3 رو رایگان در اختیار همه قرار داده.

[PEA]

سلام.
از جی میل استفاده کنید. چه اصراریه با یاهو میل بزنید.
جی میل هم smtp و هم pop3 رو رایگان در اختیار همه قرار داده.

نه مسئله ارسال با جیمیل نیست،
مسئله اینه که ایمیل ها به یاهو ارسال نمی شوند!

[nekooee]

سلام

دوستان. من این برنامه که دوستمون گذاشتن دانلود کردم. روی ویندوز 7 فایل اجرایی اون اجرا نمیشه و میگه فایل OCX رجیستر نشده. که من می دونم برای درست کردنش یک نرم افزار هست که باید با اون فایلهای OCX رجیستر بشه تا کار کنه. اینجوری بدرد نمی خوره چون دیگه خود به خود اجرا نمیشه.

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


من دستوراتی که دوستان تو صفحه دوم گذاشتن هم وارد ویژوال بیسیکم کردم اما کار نکرد. میشه یک راهنمایی کنید؟
1- تنظیمات ایمیلم درست هست و با برنامه ای که تحت vb2008 دارم ایمیل هم میزنم ولی چون اون نیاز به نصب .net fream work داره بدردم نمی خوره.
2- من آی دی gmail رو با @.com یعنی به صورت کامل میزنم. درسته دیگه؟

3- توی دستور دور user , pass , sender , .... علامت " گذاشته نشده و ایراد میگیره. مگه نباید این علامت دورش باشه؟

4- دستور زیر رو من کامل کپی کردم در Form و بعد از دادن آدرسها و یوزر و پسوورد اجراش کردم که هیچ کاری نکرد. درسته؟ یا باید جای دیگه دستور رو قرار بدم؟

(منظورم این دستور هست)

کد:

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

ببخشید سوالاتم زیاد شد ممنون میشم پاسخ بدین

[SURIV]

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