مشکل در ارسال ایمیل ؟

[saeedvir]

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

میشه کمک کنید ؟!!

یا یه سورس قرار بدید که ازطریق WINSOCK با استفاده از YAHOO ایمیل ارسال کنه ؟؟

[xxxxx_xxxxx]

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

[saeedvir]

از این کد :

Private Sub Command1_Click()
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") = "myName@gmail.com"
Flds.Item(schema & "sendpassword") = "myPassword"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "Reciever"
.From = "Sender"
.Subject = "Subject"
.HTMLBody = "Text"
.Sender = "Sender"
Set .Configuration = iConf
SendEmailGmail = .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Sub

ببینید راستش می خواهم یکسری اطلاعات بفرستم (البته قصد کیلاگر و ... ندارم)

[xxxxx_xxxxx]

سلام،
من تست کردم مشکلی نداشت.
روی یک ایمیل دیگه امتحان کنید. یا از پورت 587 استفاده کنید.

[saeedvir]

جواب نمیده ؟!!!!!1

این Error را میده :

the server response was not available