Получение вложений Outlook в VBA из отправленной почты

Question

Я пытаюсь сделать так, чтобы на нескольких шаблонах E-Mail у меня была моя работа, когда мы перетаскиваем на нее определенный файл Excel выберет и скопирует диапазон этого файла Excel в тело письма. Мой единственный вопрос, как я искал везде и весь код, я нашел, кажется, для писем, которые в настоящее время получили, не написано, как я могу получить доступ к:

1. вложения в электронной почте, что я Обращается
2. тела E-Mail Я пишу

Я уверен, что я могу получить код для всего остального я хочу, когда я могу получить вложения для текущего Email.

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

Answer 1

, как получить доступ к: Приставки в электронной почте, что я пишу тело E-Mail Я пишу

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

Скажем электронной почты, который вы пишете выглядит как этот

Все, что вам нужно, этот код

Sub Sample() 
    Dim NewMail As MailItem, oInspector As Inspector 
    Set oInspector = Application.ActiveInspector 

    '~~> Get the current open item 
    Set NewMail = oInspector.CurrentItem 

    With NewMail 
     Debug.Print .To 
     Debug.Print .subject 
     Debug.Print .Body 

     AttchCount = .Attachments.Count 

     If AttchCount > 0 Then 
      For I = 1 To AttchCount 
       '~~> Print Attachment names 
       Debug.Print .Attachments.Item(I).DisplayName 
      Next I 
     End If 
    End With 
End Sub 

Выход