Каждый день я получаю несколько автоматических электронных писем, которые содержат некоторую информацию, которую необходимо переслать на другой адрес (а) электронной почты.
Этот адрес электронной почты находится в автоматизированной электронной почте,и не всегда будет одинаковым.Этот адрес электронной почты находится в таблице под строкой с пометкой «Замечания».Я вставил картинку, чтобы проиллюстрировать это.
Я хотел бы автоматизировать этот процесс с помощью макросов Outlook VBA.Некоторая дополнительная информация: 1) Я не могу использовать функцию «запустить скрипт» в Правилах.2) Входящие электронные письма автоматизированы и всегда будут иметь одинаковый формат.
Мне нужна помощь по следующим вопросам: 1) Копирование адреса электронной почты в следующем столбце строки «Примечания».
Мне уже удалось автоматизировать процесс распознавания входящей электронной почты (по заголовку темы) и автоматической переадресации на предварительно заданный адрес электронной почты и изменения заголовка переадресованной темы электронной почты.
Private WithEvents Items as Outlook.Items
Private Sub application_startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNameSpace("MAPI")
'Setting target folder as inbox
Set Items = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub Items_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
Dim Msg As Outlook.Mailitem
'act only if it is a mail item
If TypeName(Item) = "MailItem" Then
Set Msg = Item
'Detect emails with specified subject title
If Msg.Subject = "Test" Then
Set myForward = Item.Forward
myForward.Recipients.Add("test@gmail.com")
myForward.Subject = "FW: Success"
myForward.Save
myForward.Send
EndIf
EndIf
ProgramExit: Exit Sub
ErrorHandler:
MsgBox Err.Number & "-" & Err.Description
Resume ProgramExit
End Sub