VBnovichok » 26.11.2003 (Ср) 2:31
Частично разобрался:
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
Но как быть с ЛОГИНОМ И ПАРОЛЕМ??
Не оставьте без внимания!
Спасибо