ارسال فایل

[saeedhord]

درود !

من یه برنامه نوشتم که تمام تکست های که کاربر وارد کرده رو داخل یه فایل .txt ذخیره میکنه .

حالا سوال اینجاس که میخوام هر شب ساعت 8 اونو به ایمیل من ارسال کنه چطوری اینکارو انجام بدم !

یا اگه دوستان نظره دیگه ای دارن برای اینکار ممنون میشم کمکم کنید <3

[SlowCode]

سلام
این کد رو با فرمت bas ذخیره کن:

Option Explicit

'start SendMail code
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String, mailserver As String, portnum As String) As Boolean
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") = mailserver
Flds.Item(schema & "smtpserverport") = portnum
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
SendMail = True
Else
MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
SendMail = False
End If
End Function



استفاده کردنش هم آسونه پارامترهاش رو نگاه کنی خودت میفهمی.

[m2011kh]

سلام.

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

و در جواب سوالت میتونی از راهنمایی آقا محسن استفاده کنی فقط به علت محدودیت هایی که گوگل اعمال میکنه بهتره که هاستی که با ارسال ایمیل موافق باشه پیدا کنی و یه کد php برای ارسال ایمیل باشه اپلود کنی و باهاش ارتباط برقرار کنی بدون درد سر ایمیل ارسال کنی.
کد برای ایمیل فرستادن(کد PHP) تو سایت هست میتونی با یه سرچ پیدا کنی.

موفق و سربلند باشید.

MMD

[SlowCode]

در تکمیل حرفای دوستمون عرض کنم که شما دو راه داری یکیش که همون ارسال ایمیل توسط Host هست که کار باهاش رو میتونی اینجا -php mail (http://www.w3schools.com/php/php_mail.asp)- بخونی.
ولی یه مشکلی که هست اینه که تو سایت های میزبان تعداد ایمیل هایی که شما روزانه مجاز به ارسال هستی محدوده پس باید فکر اینم بکنی.

یه روش دیگه هم اینه که اون اطلاعات رو با متد post یا Get به یه صفحه php که خودت ساختی بفرستی و اونا رو تو دیتابیس ذخیره کنی.
به نظر من روش دوم بهتره ولی با توجه به کارت یکی رو انتخاب کن.

[mohammadsezar]

درود !

من یه برنامه نوشتم که تمام تکست های که کاربر وارد کرده رو داخل یه فایل .txt ذخیره میکنه .

حالا سوال اینجاس که میخوام هر شب ساعت 8 اونو به ایمیل من ارسال کنه چطوری اینکارو انجام بدم !

یا اگه دوستان نظره دیگه ای دارن برای اینکار ممنون میشم کمکم کنید <3

این چیزی که تو ساختی بیشتر شبیه ویروسه تا برنامه!!!!!!!!!!!!!!!!!!!1

[123ALIREZA45]

سلام
این کد رو با فرمت bas ذخیره کن:

Option Explicit

'start SendMail code
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String, mailserver As String, portnum As String) As Boolean
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") = mailserver
Flds.Item(schema & "smtpserverport") = portnum
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
SendMail = True
Else
MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
SendMail = False
End If
End Function



استفاده کردنش هم آسونه پارامترهاش رو نگاه کنی خودت میفهمی.





لطفا باز تر توضیح بدید

[محمد فدوی]

بطور کلی برای چنین کارهایی باید از Winsock (http://msdn.microsoft.com/en-us/library/windows/desktop/ms741416(v=vs.85).aspx) استفاده کنی. Winsock یه سرویس خیلی کامله که مایکروسافت روی ویندوز ارائه میده و با اون میتونی انواع ارتباط توی شبکه از جمله خوندن و نوشتن داده ها روی پورت ها رو انجام بدی.
VB6 هم یه Refrence به همین اسم داره که نه ۱۰۰٪ قابلیت ها ولی اکثر قابلیت های Winsock رو ارائه میده و بطور خاص برای ارسال ایمیل در برنامه کافیه.

خب تا اینجا فهمیدیم که ابزار ارسال ایمیل چیه. فرض کنیم یه پورت به سرور ایمیل یاهو یا گوگل یا هرجای دیگه باز کردیم. حالا چجوری بش بگیم محتویات ایمیلمون رو؟! برای اینکار یه زبان مشترک (یا همون پروتکل) به اسم SMTP (http://en.wikipedia.org/wiki/Simple_Mail_Transfer_Protocol) وجود داره (فرمت SMTP رو توی لینکی که از Wikipedia گذاشتم میتونی ببینی) که مثل POP3 (http://en.wikipedia.org/wiki/Post_Office_Protocol) تقریبا همه ی سرورهای ایمیل اونو پشتیبانی میکنن.

حالا اگه یکم با کامپوننت Winsock آشنا بشی دیگه میتونی برنامش رو خودت بنویسی! ولی خب کدهای آماده خیلی خیلی زیاده. اینارو بخونی کارت راه میفته:
لینک ۱ (http://stackoverflow.com/questions/5517217/sending-an-email-through-vb6)
لینک ۲ (http://www.vbforums.com/showthread.php?647635-vb6-send-email-with-attachment-using-smtp)
لینک ۳ (http://www.emailarchitect.net/easendmail/ex/b/4.aspx)
لینک ۴ (http://www.vbforums.com/showthread.php?248977-Send-SMTP-Mail-via-VB6)

[ایلیا آخوندزاده]

سلام
این کد رو با فرمت bas ذخیره کن:

Option Explicit

'start SendMail code
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String, mailserver As String, portnum As String) As Boolean
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") = mailserver
Flds.Item(schema & "smtpserverport") = portnum
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
SendMail = True
Else
MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
SendMail = False
End If
End Function



استفاده کردنش هم آسونه پارامترهاش رو نگاه کنی خودت میفهمی.

سلام خوب دوست عزیزم پسوند bas همون مادل vb6 هستش دیگه بهتره بگی یه مادل بازکن و کدهارو توش وارد کن.