متاسفانه یه مشکلی که داره اینه که اگه فایروال فعال باشه تو فرستادن
مشکل ایجاد می شه ( البته اگه فایل بخوایم ضمیمه نامه بکنیم )
سلام.
Iron_Fist نوشته است:متاسفانه یه مشکلی که داره اینه که اگه فایروال فعال باشه تو فرستادن
مشکل ایجاد می شه ( البته اگه فایل بخوایم ضمیمه نامه بکنیم )
به خاطر این هست که کد از فایل CDOSys استفاده می کنه و چون برنامه به عنوان یکی از سرویس های مجاز استفاده از کننده از این Dll برای ارسال فایل که در ویندوز تعریف می شن (مثل Outlook یا یه سری برنامه های کار با میل) نیست، این مشکل پیش میاد. البته همونطوری هم که خودتون اشاره کردین فقط در هنگام ارسال فایل یا اتچ مشکل ایجاد می شه و در هنگام ارسال متن عادی هیچ مشکلی نداره.
mbza11 دستت دردنکه برنامت واقعا عالی بود
من باهاش فایل ارسال کردم اما فایروال جلوشو نگرفت!!!
درضمن میشه ایمیل رو برای ایمیل های یاهو هم فرستاد
سلام.
mohsen_f نوشته است:من باهاش فایل ارسال کردم اما فایروال جلوشو نگرفت!!!
درضمن میشه ایمیل رو برای ایمیل های یاهو هم فرستاد
بعضی فایروال ها گیر میدن مثل مک آفی (بعضی ورژن ها). من خودم با فایروال پاندا مشکلی ندارم.
آره برای یاهو هم میشه فرستاد. بعضی وقت ها ممکنه میل تو بالک یاهو بره که خودم هم نفهمیدم چرا اینجوری میشه.
برای هات میل رو نمی دونم چون تست نکردم.
آقايون اين سورس ها هيچ كدومشون تو سيستم بنده عمل نكردند و توي همون خطي براي سند كردن هستش ارور مي دن.آنتي و .. هم ندارم.فاير وال ويندوز هم غير فعال هستش.
تو رو خدا يكي كمك كنه.
برای من هم همون خط خطا می ده
کد:
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
اینا کدهای vbs همین برنامه هستند که با کمی تغییر این شکلی شدند
البته من اینا رو امتحان نکردم ولی خطا هم نداره
سلام از کد خیلی به درد به خوروتون خیلی ممنونم ولی اگه می شه یه توضیح کوچولویی هم راجع بهش بدید ممنون می شم مثلا این که ("CDO.Message")
چیه ؟ یا مظنورتون از schema = "http://schemas.microsoft.com/cdo/configuration/"
چیه ؟
اگه این کارو بکنی کمک خیلی بزرگی بهم کردی ؟
راستی اگه بخواهی برای ادرس زیر ایمیل کنی چی کار باید بکنی ؟ myname @ company .org
اینم میل منه s_aftabi@yahoo.com
خیلی مرررررررررررررررررررررررررررررسی
Send = mdlMail.SendMail(txtSender.Text, txtSubject.Text, txtReciver.Text, txtText.Text, txtPassword.Text, txtAttach.Text
آقاي mbza11 ميشه بگيد كه چرا اين خط error ميده؟ (sendmail.zipاين برنامه رو ميگم)
چرا اين خطش errorميده؟ ميشه كمكم كنيد؟ SendEmailGmail = .Send