| |
|
|
| | Как прикрепить файлы ?
Dim MsgText ', MsgFrom
MsgText = InputBox("Фамилия")
'MsgFrom = InputBox("Email")
Set objEmail = CreateObject("CDO.Message")
objEmail.BodyPart.Charset = "windows-1251"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "assa"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
'objEmail.From = MsgFrom
objEmail.To = "assa@yandex.ru"
objEmail.Subject = "списки" 'Тема
objEmail.TextBody = MsgText 'Руководитель
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing
End Sub | |
| |
| |
| |
|
|
| | полагаю так:
objEmail.AddAttachment "C:\Scripts\Output.txt"
ну или так
objEmail.AddAttachment("file://C:\Scripts\Output.txt")
---
небольшой примерчик есть тут:
http://www.activecallcenter.com/manual/591.htm
 | |
| |
| |
| |
|
|
| | objEmail.AddAttachment "ИмяИПуть"
http://hiprog.com/index.php?option=com_content&task=view&id=458 | |
| |
| |
| |
|
|
| | Спасибо! Как обработать сообщение (при отсутствии соединения с интернетом) "транспорту не удалось подключиться к серверу". Ну чтобы не уходило в режим отладки а еще бы лучше было бы чтобы выводило сообщение нет соединения сообщение не отправлено или отправлено. | |
| |
| |
| |
|
|
| | полагаю, это уже on error goto err
типа такой командой ловить ошибку. и если err.number равен той, кот.ваша тогда делать то-то и то-то. | |
| |
| |
| |
 7 Кб. |
|
| | а как это будет выглядеть в натуре? как реагировать на непредсказуемые ошибки? Например см.скриншот. | |
| |
| |
| |
|
|
| | ну тада примерно так:
вначале определяем
On Error Resume Next
после команды
objEmail.Send
пишем
if err.number <> 0 then
msgbox "Отправка письма невозможна по причине: " & err.description
err.clear
end if
ну а потом уже остальные процедуры..
ну типа так..  | |
| |
| |
| |
|
|
| | Прекрасно все работает,БЛАГОДАРЮ, Чтобы User лишний раз не беспокоил дописал :
If Err.Number <> 0 Then
MsgBox "Отправка письма невозможна по причине: " & Err.Description, , Err.Number
Else
DoCmd.Close acForm, Me.Name
MsgBox "Почта" & ("") & " успешна отправлена."
Err.Clear
End If
Set objEmail = Nothing | |
| |
| |
