VBA Excel - как ответить всем адреса электронной почты, а не только на имена

Question

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

Отправители в основном за пределами компании, поэтому мне нужно его захватить и заполнить поле «Кому» фактическими адресами электронной почты. Если бы это было только в компании, пользователи были бы в каталоге компании, и это не было проблемой. Ближе всего я пришел к выводу, что это ответ How do you extract email addresses from the 'To' field in outlook?. Я чувствую, что информация, которая мне нужна, доступна там (только явным образом занимается захватом информации для получателей, но я полагаю, что тот же принцип применим к отправителю), но я не могу понять, как вставить его в мой код для желаемого результат.

Вот что я начиная с:

Private Sub CommandButton1_Click() 

Dim origEmail As MailItem 
Dim replyEmail As MailItem 

Set origEmail = ActiveExplorer.Selection(1) 
Set replyEmail = CreateItemFromTemplate("C:\Download Tool\Need Stat Code X.oft") 

replyEmail.To = origEmail.ReplyAll.To 

replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody 
replyEmail.SentOnBehalfOfName = "emailaddress@mycompany.com" 
replyEmail.Display 

Set origEmail = Nothing 
Set replyEmail = Nothing 

End Sub 

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

Спасибо за ваше время и совет!

Answer 1

Благодаря как @hrothgar и @Tony для ответов. Я узнал о некоторых новых инструментах и ​​методах от каждого. В конечном счете, основываясь на информации, найденной в ваших ответах, я закончил поиск «vba get recipients string» и нашел Get item.recipient with Outlook VBA.

код теперь работает и выглядит следующим образом:

Private Sub CommandButton1_Click() 

Dim origEmail As MailItem 
Dim replyEmail As MailItem 

'new stuff 
Dim recip As Recipient 
Dim allRecips As String 
'end new stuff 

Set origEmail = ActiveExplorer.Selection(1) 
Set replyEmail = CreateItemFromTemplate("C:\Template Placel\My Template.oft") 

'more new stuff 
For Each recip In origEmail.Recipients 
If (Len(allRecips) > 0) Then allRecips = allRecips & "; " 
allRecips = allRecips & recip.Address 
Next 
'end more new stuff 

replyEmail.To = origEmail.SenderEmailAddress & "; " & allRecips 'updated to find sender email and 

replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody 
replyEmail.SentOnBehalfOfName = "inbox@company.com" 
replyEmail.Display 

Set origEmail = Nothing 
Set replyEmail = Nothing 

End Sub 

Внутренние контакты выглядят немного некрасиво в строке «Кому», но я проверил, и он получает работу.

Спасибо за помощь!

Answer 2

Если вы положили стоп после «Set origEmail = ...» и установили часы на origEmail, вы увидите свойства электронной почты. Включена коллекция получателей. Есть два (которые я вижу) типы, SMTP и EX. Для меня EX означает внутреннее. в каждом элементе в элементах получателей есть свойство, называемое адресом, а другое - адресным. Часть адресатов содержит тип адреса.

глубокий вдох

ОК, так что вы должны быть в состоянии преобразовать EX адреса во внутренние адреса, анализируя часть в конце, и вы можете просто положить SMTP из них, как есть, я думаю, , Создайте строку адресов в списке адресов получателей и поместите их в поля To и/или CC, и вы должны быть хорошими. Часть To или CC является получателем (n) .type свойство ...

думаю.

Гоша, я надеюсь, что кто-то вывешивает простой способ сделать это :)