Вставка SMTP и PASSWORD по умолчанию

[VBnovichok]

Привет всем!!!

Ситуация: Необходимо запустить код с WINSOCK и отправить сообщение. Сеть работает через конкретный определенный SMTP и не поддерживает альтернативные (типа mail.ru и т.д.).
SMTP и PASSWORD не известны.

Вопрос: Как вставить в код SMTP и PASSWORD принятые по умолчанию да данной машине?

Спасибо

[VBnovichok]

Частично разобрался:
With clsSend

.SMTP_Server = GetString(HKEY_CURRENT_USER, "Software\Microsoft\Internet Account Manager\Accounts\00000001", "SMTP Server")
.SMTP_Email_Address = GetString(HKEY_CURRENT_USER, "Software\Microsoft\Internet Account Manager\Accounts\00000001", "SMTP Email Address")
.Display_Name = "Test"
.SendToN = "ME"
.SendToA = GetString(HKEY_CURRENT_USER, "Software\Microsoft\Internet Account Manager\Accounts\00000001", "SMTP Email Address")
.MessageSubject = "Test Subject"
.MessageText = "Test Message!"

.SendMail

End With


Но как быть с ЛОГИНОМ И ПАРОЛЕМ??

Не оставьте без внимания!
Спасибо