Событие для периодической записи новых сообщений из Outlook в БД Access - VB
Формулировка задачи:
Всем доброго дня!
Есть учетная запись в Outlook 2010.
Необходимо сделать следующее: при поступлении новых писем на почту, Outlook периодически должен сохранять данные сообщения в БД Access и вложения (если они есть) в определенную папку при этом записав в БД путь к данному файлу.
Подскажите как решить следующую задачу, и если можно с примером кода.
Решение задачи: «Событие для периодической записи новых сообщений из Outlook в БД Access»
textual
Листинг программы
Private Sub Application_NewMail() Call Outlook_copyAttachmentsToFolder End Sub Sub Outlook_copyAttachmentsToFolder() On Error Resume Next Dim myFolder As Outlook.MAPIFolder Dim mi As MailItem DestFolder = "G:\Вложения\" Set myFolder = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Dim MyDate MyDate = Format(Date, "yyyy.mm.dd") For Each mi In myFolder.Items.Restrict("[Unread]=TRUE") If mi.Attachments.Count > 0 Then If Len(Dir(DestFolder & MyDate, vbDirectory)) = 0 Then MkDir DestFolder & MyDate End If For j = 1 To mi.Attachments.Count mi.Attachments.item(j).SaveAsFile DestFolder & "\" & MyDate & "\" & mi.Attachments.item(j).DisplayName Next j End If ' mi.UnRead = False Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д