+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : لدي مشكلةبإرسال إميل عن طريق سيرفر "smtp-mail.outlook.com" (/showthread.php?tid=50795)
لدي مشكلةبإرسال إميل عن طريق سيرفر "smtp-mail.outlook.com" - dark_man - 15-12-24
مرحبا سؤال لذوي الخيرة
أحاول إرسال إميل عن طريق VB6 حسب الكود المرفق لكن يظهر لي خطأ التالي
Run-time error '-2147220973 (80040213)':
The transport failed to connect to the server.
وهذا الكود :
==================================================================================
Dim Mail As Object
Dim Config As Object
Set Mail = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YYYYYY"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Config.Fields.Update
With Mail
.Configuration = Config
.To = "mohammed.alhawatmeh@kar-k.com"
.From = "XXXX"
.Subject = "Test Email"
.TextBody = "This is a test email sent using CDO."
.Send
End With
MsgBox "Email Sent Successfully"
Set Mail = Nothing
Set Config = Nothing
==================================================================================
تم إرفاق المشروع كامل مع السؤال
ارجو بمساعدتي بحل هذه المشكلة أو التكرم علي بتزويدي بطريقة صحيحه لإرسال الإميل من VB6 وتكون ترسل إميل