مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[MoBiN.R]

ممنونم.من برام مهم نیست که میل سرورو بدونم.می خوام سورس یه برنامه رو داشته باشم که میل بفرسته با سرور stmp گوگل.مثل همین برنامه که گذاشتم.
تو این انجمن همون پستای اول بود ولی نمیدونم کدومش به کار من میخوره و کار میکنه.اگر لینک این چیزی که من میخوام رو بزارید خیلی خیلی ممون می شم!

دوست عزیز سورس کامل ارسال ایمیل رو براتون نوشتم .. توی این سورس از میل سرور جیمیل استفاده میکنه و شما نیاز به وارد کردن چیز اضافی نمیباشید ..

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 = "SendMail Project"
            .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

تابع بالا برای ارسال میل و برای استفاده از این تابع :

SendMail "YourGmailAddress","Subject","Reciver","Text","YourGMailPassword","AttachFile"

[vpn3vpn]

مرسی.ولی نگفتی که این دو تا کد رو کجا باید بزارم.
واسه دکمه send و Attach چی بنویسم.اطلاعات آدرس جیمیل و پسورد و گیرنده و... رو از کجا بهش بدم.یه توضیح کاملتر اگر بدید خیلی خیلی ممنون میشم.
یه ارور هم موقع اجرا تو این سطر: .AddAttachment (AttachFile) میگیره که فکر کنم اشکال از منه که نمی دونم چه کار باید کنم.اگر تونستید یه پروژه باهاش بسازید که فقط gmail.pass.resiver,attach و متن رو بخواد و بهم بدید.
مرسی!

[MoBiN.R]

مرسی.ولی نگفتی که این دو تا کد رو کجا باید بزارم.
واسه دکمه send و Attach چی بنویسم.اطلاعات آدرس جیمیل و پسورد و گیرنده و... رو از کجا بهش بدم.یه توضیح کاملتر اگر بدید خیلی خیلی ممنون میشم.
یه ارور هم موقع اجرا تو این سطر: .AddAttachment (AttachFile) میگیره که فکر کنم اشکال از منه که نمی دونم چه کار باید کنم.اگر تونستید یه پروژه باهاش بسازید که فقط gmail.pass.resiver,attach و متن رو بخواد و بهم بدید.
مرسی!

با سلام .. سورس مورد نظر رو براتون نوشتم و اینجا آپلود کردم

[vpn3vpn]

آقا دمت گرم.خیلی با حالی.من اول فقط به خاطر این برنامه عضو شدم. ولی حالا که میبینم اینجا شما چقدر تحویل میگیرید کسی رو که نمی شناسید از این به بعد تو همین انجمن فعالیت میکنم و سورس های ویژوال رو می زارم!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید