Добрый день.
Пытаюсь решить задачу такого плана:
1. автоматическая отправка писем
2. после отправки письмо должно сохраняться в "Отправленных" Outlook'a
В целом на форуме нашел два варианта автоматического создания письма
1. В первом случае Outlook даже не задает вопроса на отправку ( что есть очень хорошо), но какого-то упоминания что письмо было, даже нет :( а надо
Dim oConfig
Dim oMSG
Dim CFields
Dim strBody
'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "
test@test.ru" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pas" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
oMSG.To = "
test2@test.ru" 'адрес получателя1
oMSG.CC = "" 'адрес получателя2
oMSG.From = "
test@test.ru" 'адрес отправителя
oMSG.Subject = "test" ' тема письма
oMSG.BodyPart.Charset = "windows-1251" ' кодировка письма
'oMSG.AddAttachment "c:\privet.txt" 'путь к вложенному файлу
'формируем HTML текст который будет телом письма
strBody = "Здесь HTML текст. & <BR><BR> & C уважением,
login@mail.ru"
oMSG.HTMLBody = strBody 'тело письма
oMSG.Send 'отправляем
'обнуляем переменные
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing
2. Вариант создает письмо, и при попытке отправить его Outlook выдает запрос на отправку, что очень досадно (решения в виде программ автоматического нажатия ОК пока не хочу применять)
Но в этом варианте сохранить письмо в какую хочешь папку не представляет каких либо проблем.
Dim oMSG As MailItem
Dim oMSG_Conf
Dim strBody
Dim oInbox As MAPIFolder
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myOutFolder As Outlook.MAPIFolder
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderOutbox)
Set myOutFolder = myInbox '.Folders("куда надо")
'создаем объект Message это наше письмо
Set oMSG_Conf = CreateObject("CDO.Message")
'Set oMSG = CreateObject("CDO.Message")
Set myOlApp = CreateObject("Outlook.Application")
Set oMSG = myOlApp.CreateItem(olMailItem)
oMSG.To = "
test2@test.ru" 'адрес получателя1
oMSG.CC = "" 'адрес получателя2
oMSG.Subject = "test" ' тема письма
'формируем HTML текст который будет телом письма
strBody = "Здесь HTML текст. & <BR><BR> & C уважением,
login@mail.ru"
oMSG.HTMLBody = strBody 'тело письма
oMSG.Send 'отправляем
'oMSG.Move myOutFolder
'обнуляем переменные
Set oMSG = Nothing
Set oMSG_Conf = Nothing
Set myNameSpace = Nothing
Set myInbox = Nothing
Set myOlApp = Nothing
Set myOutFolder = Nothing
Возможно во втором варианте меня устроило бы не отправлять подготовленное сообщение, а сохранить например в "исходящих", а уже потом после подготовки всех писем в ручную нажимать "Отправить и Получить", но письма не уходят :( может кто знает есть где флаг указывающий, что это письмо уже подготовлено к отправке?
Ну и как в первом варианте сделать так чтобы отправленные письма были видны в Outlook'e ?
