Отправка e-mail через SMTP-сервер

Option Explicit
 
'Содание объекта CDO
Dim objmes
Set objmes=CreateObject ("CDO.Message")
 
'От кого и кому
Dim from
Dim whom
from="email1@gmail.com" 'адрес отправителя
whom="email2@mail.ru" 'адрес получателя
 
'Тема и текст сообщения
Dim theme
Dim text
theme="temp"
text="sended!"
 
'Конфигурация
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email1.gmail.com"
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
'Заполнение письма
objmes.From=from
objmes.To=whom
objmes.Subject=theme
objmes.HTMLBody=text
 
'Обновление данных и отправка письма
objmes.Configuration.Fields.Update
objmes.Send

Option Explicit
 
'Содание объекта CDO
Dim objmes
Set objmes=CreateObject("CDO.Message")
 
'От кого и кому
Dim from
Dim whom
from="email1@gmail.com" 'адрес отправителя
whom="email2@mail.ru"   'адрес получателя
 
'Тема и текст сообщения
Dim theme
Dim text
theme="subj"
text="sended!"
 
'Конфигурация
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = from
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objmes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
'Заполнение письма
objmes.From=from
objmes.To=whom
objmes.Subject=theme
objmes.TextBody=text
 
'Обновление данных и отправка письма
objmes.Configuration.Fields.Update
objmes.Send

    Function SendMail(ByRef Sender As String, ByRef Recipient As String, ByRef Header As String, ByRef Body As String, ByRef Password As String, Optional ByRef Port As Integer = 465, Optional ByRef Server As String = "smtp.gmail.com") As String
        Dim o_Mess As Object, v_Conf As String
        On Error GoTo ErrOfSend
        o_Mess = CreateObject("CDO.Message")
        v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
        o_Mess.BodyPart.CharSet = "Windows-1251"
        With o_Mess
            .To = Recipient
            .From = Sender
            .Subject = Header
            .TextBody = Body ' Если надо отправить просто текст
            '.HTMLBody = TextBox1.Text ' Если надо отправить HTML
            With .Configuration.Fields
                .Item(v_Conf & "sendusing") = 2
                .Item(v_Conf & "smtpserver") = Server
                .Item(v_Conf & "smtpauthenticate") = 1
                .Item(v_Conf & "sendusername") = Sender
                .Item(v_Conf & "sendpassword") = Password
                .Item(v_Conf & "smtpserverport") = Port
                .Item(v_Conf & "smtpusessl") = True
                .Item(v_Conf & "smtpconnectiontimeout") = 60
                .Update()
            End With
            .send()
        End With
        SendMail = "good"
        Exit Function
ErrOfSend:
        SendMail = "bad"
        'MsgBox(Err.Number)
    End Function