مشکلی در هنگام اتصال به سرور ارسال ایمیل!

[tootro20]

سلام به برادران گل خودم.
یه مشکل عجیبی دارم تو ارسال ایمیل از سرور یاهو!
عکس رو ضمیمه کردم فکر کنم میگه پورت سرور بسته شده...
عکس:
http://up.ashiyane.org/images/m48v6zbhtqjxdvynyg0.jpg

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.mail.yahoo.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
Form1.MousePointer = 0
SendMail = True

به نظرم هم اگه دقت کنید نوشته SendEmailGmail مشکل ازون باشه چون سرور ما یاهو هست..
بنظر اساتید چیکار کنم؟!
ممنون:قلب:
*پسوند فایلام BMP هست و حجم 2 مگابایت. و فقط تو ارسال عکس مشکل دارم