vba отправка почты

vba-Отправка почты.vba

 'ОТПРАВЛЯЕМ ПОЧТУ<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If (textForSend <> "") Then
	Dim o_Mess, v_Conf
	v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
	Set o_Mess = CreateObject("CDO.Message")
	With o_Mess
		.To = "111@вы.ru" 'куда отправляем
		.From = "111@ывыв.ru" 'имя отправителя + Email
		.SUBJECT = SUBJECT 'Тема письма
		.TextBody = textForSend 'Сообщение
		.TextBodyPart.Charset = "windows-1251" 'русская кодировка
		With .Configuration.Fields
			.Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
			.Item(v_Conf & "smtpserver") = "---" 'Адрес SMTP-сервера
			.Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
			.Item(v_Conf & "sendusername") = LOGIN 'здесь имя пользователя без @
			.Item(v_Conf & "sendpassword") = PASS  'пароль
			.Item(v_Conf & "smtpserverport") = 25 'порт (альтернативный - 465)
			.Item(v_Conf & "smtpusessl") = False 'использовать ли шифрованое подключение SSL
			.Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
			.Update
		End With
		.send
	End With
	Set o_Mess = Nothing
 End If