JMail - VB

Формулировка задачи:

В одной старой программе есть отправка письма на ip-адрес сервера через jmail.dll. Мне нужно сделать отправку на обычный почтовый адрес.

Function fnSendMail_file(strSendTo, strMailFrom, strMailFromName, strSubj, strBody, strPathToFile, Optional UserName = "")
    Dim SMTP As Object
    Set SMTP = CreateObject("JMail.SMTPMail")
    
On Error GoTo Err1
    fnSendMail_file = True
    
    SMTP.Message.Charset = "Windows-1251"
    SMTP.Message.FROM = strMailFrom
    SMTP.Message.FromName = strMailFromName
    SMTP.Message.Subject = strSubj
    SMTP.Message.Body = IIf(IsNull(strBody), "", strBody)
    SMTP.Message.AddRecipient strSendTo, strSendTo
    SMTP.Message.MailServerUserName = МоеИмя
    SMTP.Message.MailServerPassWord = МойПароль
    SMTP.Message.Send(MailServer) ' Задается IP-адресом
    SMTP.Message.Clear
    SMTP.Message.ClearAttachments
    SMTP.Message.ClearRecipients
 
    If Err.Number <> 0 Then
       fnSendMail_file = False
    End If
 
    Set SMTP = Nothing
 
Exit Function
Err1:
    fnSendMail_file = False
    MsgBox Err.Number & vbCrLf & Err.Source & vbCrLf & Err.Description, vbCritical
    Exit Function
End Function

Посмотрел разные примеры, в них создаются объекты JMail.SMTPMail, как у меня, или JMail.Message. В чем разница? Где почитать руководство по JMail?

Решение задачи: «JMail»

textual
                            Листинг программы 
                        

                            Set jmail = CreateObject("JMail.Message")
jmail.charset="windows-1251"                 ' кодировка
jmail.AddRecipient  "aaa@bbb.ru"             ' адрес получателя
jmail.From =  "fff@ggg.com"                  ' адрес отправителя
jmail.Body = "Текст письма..."               ' перевод на новую строку - & vbCrLf
jmail.Subject="OPER"                         ' тема письма
jmail.EnableCharsetTranslation=False         ' так надо...
jmail.AddAttachment( HomeDir & "\dan.xls" )  ' прикрепленный файл
jmail.Send( "имя_или_IP_почтового_сервера" ) ' лети!...
Set jmail=Nothing
                        