Я пытаюсь настроить макрос, чтобы у меня появилось всплывающее окно для выбора учетной записи электронной почты, с которой я отправляю письмо. Я действительно нашел здесь макросы, которые делают это, но после нескольких попыток во время работы все, что я получаю, это кнопка на моей панели инструментов, которая ничего не делает!

Может ли кто-нибудь дать мне подробное описание того, что делать?

Вот макрос, который я пытался -

Sub SendfromLE()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem

For Each oAccount In Application.Session.Accounts
   If oAccount = "LeadEmployerRecruitment" Then
      Set oMail = Application.CreateItem(olMailItem)
      oMail.SendUsingAccount = oAccount
      oMail.Display
   End If
Next
End Sub

Я не уверен, правильно ли я назвал аккаунт? Это должен быть полный адрес электронной почты или только имя?

1 ответ1

0

Попробуй это

For Each oAccount In Application.Session.Accounts

Debug.Print oAccount
If oAccount = "Whatever you see in the immediate pane" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .