Ошибка в коде

jaron

Новый пользователь
Сообщения
1
Реакции
0
Привет!
Мопогите пожалуйста найти ошибку в коде


VB.NET / VBA:
  Function SendMail(ByRef y.lykhoshva@i.ua As String, ByRef y.lykhoshva@mail.ru As String, ByRef Hello As String, ByRef Body As String, ByRef pass As String, Optional ByRef Port As Integer = 465, Optional ByRef Server As String = "smtp.i.ua") 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
 
Последнее редактирование модератором:
Назад
Сверху Снизу