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
Последнее редактирование модератором: