سلام لطفا یکی نسخه کامل رو بزاره ،نسخه ای که همه مشکلاش حل شده باشه ممنون.
(۰۵-بهمن-۱۳۸۶, ۱۷:۲۸:۰۳)mohsen_f نوشته است: [ -> ]سلام mbza11 من میخوام فایل بفرسته
من یکی کاملشو دارم در اسرا وقت تو سایت میذارم
میخوام هکش کنم >>این سایت
تو فرستادن ميل به ياهو مشكل داره
سلام دوباره
همونطوری که قول داده بودم جدیدترین نسخه ارسال جی میل و ایمیل با شکل قشنگ رو براتون گذاشتم؟ فقط ارسال ایمیل فارسی کسی داره؟
سلام.
جناب جعفر آباد ممنون از برنامه مفیدتون.
یه نکته باید خدمتتون عرض کنم. فایلی که قرار داده بودید حاوی ویروس sality بود. من فایل رو اصلاح کردم و مجدد قرار دادم تا سیستم بچه ها آلوده نشه.
شمام یه فکری به حال سیستمت بکن. چون ویروس سالیتی به شدت مسریه و کل سیستمت رو آلوده میکنه.
(۰۸-اسفند-۱۳۸۸, ۱۲:۲۵:۵۵)tecnocomputer نوشته است: [ -> ]تو فرستادن ميل به ياهو مشكل داره
بله من هم متوجه این مشکل شدم،
کلا برنامه ارور می ده!!!
کسی از دوستان می دونه مشکل کجاست؟
سلام.
از جی میل استفاده کنید. چه اصراریه با یاهو میل بزنید.
جی میل هم smtp و هم pop3 رو رایگان در اختیار همه قرار داده.
(۲۳-اردیبهشت-۱۳۸۹, ۰۸:۱۶:۱۸)Payman62 نوشته است: [ -> ]سلام.
از جی میل استفاده کنید. چه اصراریه با یاهو میل بزنید.
جی میل هم smtp و هم pop3 رو رایگان در اختیار همه قرار داده.
نه مسئله ارسال با جیمیل نیست،
مسئله اینه که ایمیل ها به یاهو ارسال نمی شوند!
سلام
دوستان. من این برنامه که دوستمون گذاشتن دانلود کردم. روی ویندوز 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
ببخشید سوالاتم زیاد شد ممنون میشم پاسخ بدین
دوستان این مشکل همه هست
من خیلی وقته دنبال کد ارسال ایمیل هسم ولی هر جا رفتم همه مشکل داشتن
لطفا یکی از اساتید راهنمایی بکنن.
![[تصویر: attachment.php?aid=4765]](http://forum.iranled.com/attachment.php?aid=4765)
