[dark_man]

مرحبا سؤال لذوي الخيرة

أحاول إرسال إميل عن طريق 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 وتكون ترسل إميل