Связь с OutLook

[Olper]

Уважаемые знатоки! Был подобный вопрос (Автоматической рассылки писем через Outlook от shkolyar 10.08.2011 14:29), но ответ был общий, без объяснения и пояснения, а вопрос-то интересный.
Имеется файл с фамилиями и датами, плюс куча всякой фигни, требуется при открытии книги сравнивать столбец с датами с текущей и за несолько дней по истечении срока формировать оповещение в OutLook'е на пользователей из столбца с фамилиями (текст оповещения жестко задан).
Файл не прикладываю в связи с его конфиденциальностью. Но если вопрос понятен Спасибо всем кто откликнется.

(добавлено модератором - может, кому пригодится)

Посмотрите самый простой способ, как организовать отправку почты (рассылку писем)
(с использованием программы заполнения документов по шаблонам, с последующей отправке по почте)

В программе есть возможность формировать письма по шаблону (с подстановкой данных из таблицы Excel),
прикреплять сформированные документы и файлы из выбранной папки, и много других возможностей.

[doober]

Если вас устроит,могу выслать на мыло файл с макросом по обработке файлов и рассылки через OutLook
Только пояснять ничего не буду.год уже прошел с момента написания.
Да и специфика файла своя.файл 2007

[gluk_fm]

Вот не так давно делал - параметры указанные ниже нужно уточнять:


Sub imeil_items_send()
Dim dateFTP As String, mail As String, text_mail As String, ZipName As String
'Set ShellApp = Nothing
Dim objMsg As Object, Config As Object

dateFTP = Sheets("report").Range("B3").Value


mail = "FTP êàëüêóëÿòîð çà " & dateFTP
text_mail = "Äîáðûé äåíü." & vbCrLf & "Â ñîîòâåòñòâèè ñ ïîëèòèêîé âíóòðåííåãî òðàíñôåðòíîãî öåíîîáðàçîâàíèÿ, îòñûëàþ Âàì êàëüêóëÿòîð äëÿ ïðîâåðêè. " & vbCrLf & "Ñïàñèáî, õîðîøåãî äíÿ."





Application.DisplayAlerts = False




ZipName = "С:\\FTP\FTP rate calculator.xls"

Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.From = "Имя"
objMsg.To = "Имя1"
'If t![emeil_copy] <> 0 Then
'objMsg.CC = "FTP@unicredit.com.ua"
'End If
objMsg.Subject = mail
objMsg.TextBody = text_mail
objMsg.AddAttachment ZipName 'Ïóòü ê ïðèêðåïëÿåìîìó ôàéëó
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "имя сервера"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "имя"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль"
Config.Fields.Update
objMsg.Send


End Sub