Я пытаюсь создать свой первый макрос для Outlook с VBA, но я не знаю, правильно ли то, что у меня есть, я хочу сделать следующее:
В Outlook у меня сразу две учетные записи.войти в систему: личная электронная почта и общая электронная почта, я хочу, чтобы электронная почта отправлялась из общей учетной записи, давайте назовем ее shared@domain.com, я понятия не имею, как выполнить эту часть.
Как только я получу электронное письмоЯ вручную перетащу его в подпапку (внутри папки «Входящие»), которая называется «Новости», и я хочу, чтобы эта папка выполняла следующие действия:
- Всегда изменяйте тему на «Привет»
- Выберите обычный формат
- Выберите всегда одного и того же получателя "hello@domain.com"
- Отправьте письмо.
Теперь у меня есть этот код, но я действительнопонятия не имею, имеет ли это вообще смысл:
Public WithEvents myOlItems As Outlook.Items
Public Sub Initialize_handler()
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("News").Items
End Sub
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Item.Subject = "New subject"
Item.BodyFormat = olFormatPlain
Item.Recipient = Items.Recipients.Add("username@domain.com")
Item.Forward
Item.Send
End Sub