| |
 48 Кб. |
|
| | Отправка почты из ACCESS с использованием Microsoft Collaboration Data Objects (CDO)
есть ссылка http://hiprog.com/index.php?option=com_content&task=view&id=458 2005 год
Требования к отправке изменились. Появились Безопасное соединение (TSL) порт 465. см. вложение
Как адаптировать? Где указать порт?
Если ли новые решения? | |
| |
| |
| |
|
|
| | Вот рассылка. Выдернул из своей проги. Посмотри
Sub send_message()
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
.TO = Me!POLE_TO ' "serz58@yandex.ru" 'Кому отправить
.From = POLE_FROM ' "serz58@yandex.ru" 'От кого
.Subject = Me!POLE_TEMA 'Тема
.TextBody = Me!POLE_SMS 'Текст
.AddAttachment "D:\Отправка.txt" 'Отправка файла
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2
.Item(v_Conf & "smtpserver") = "smtp.yandex.ru"
.Item(v_Conf & "smtpauthenticate") = 1
.Item(v_Conf & "sendusername") = "serz58" 'От кого
.Item(v_Conf & "sendpassword") = "12345" 'Пароль от кого отправляется письмо
.Item(v_Conf & "smtpserverport") = 465 'Порт
.Item(v_Conf & "smtpusessl") = True 'использовать SSL
' .Item(v_Conf & "smtpusessl") = False 'НЕ использовать SSL
.Item(v_Conf & "smtpconnectiontimeout") = 30
.Update
End With
.Send
Set o_Mess = Nothing
End With
End Sub
|
| |
| |
| |
| |
|
|
| | А не подскажите ли как прикрепить не один Аttachment , а несколько? | |
| |
| |
| |
|
|
| | Несколько строчек:
.AddAttachment "D:\Отправка.txt" 'Отправка файла | |
| |
| |
|
|
