個々の受信者名（元の電子メールの送信者名）を持つOutlookの返信

Question

以下のOutlook VBAでマクロを作成して、挨拶に追加された送信者のファーストネームを使用して本文にテキストを追加し、私が望むフォント。

私が助けが必要なのは、マクロが送信者の名前をすべて取得して、電子メールの本文のどこかに配置できる値を割り当てることです。それができないなら、私は挨拶にすべての名前を入れるだけで済むが、名前を動かすことができる方がはるかに好ましい。

例：; は現在、このマクロは唯一名1は、（「親愛なる名1を、」与える）引っ張ってくるが、 、私は非常に少なくとも、「親愛なる名1とName2は、」に取得したいと思いName2は
送信者が名1でした。 ベストはName1を挨拶にすることができ、次にName2はテキストの本文に配置されます。

私はこれまで私が自分でできると思っていますが、今は専門家に助けを求めています！ありがとうございました！！スペースがある場合

strGreetName = Left$(oMail.SenderName, InStr(1, oMail.SenderName, " ") - 1) 
lastName = right(oMail.SenderName, len(oMail.SenderName) - InStr(1, oMail.SenderName, " ")) 

：このコード内のフォーマットを使用して

sndrName = oMail.SenderName 
lastName = right(sndrName, len(sndrName) - InStr(1, sndrName, " ")) 

のような文字列の右側を取得し、文字列「姓」を考える

Sub AutoAddGreetingtoReply() 
Dim oMail As MailItem 
Dim oReply As MailItem 
Dim GreetTime As String 
Dim strbody As String 
Dim SigString As String 
Dim Signature As String 
Dim R As Outlook.Recipient 
Dim strGreetName As String 

Select Case Application.ActiveWindow.Class 
     Case olInspector 
      Set oMail = ActiveInspector.CurrentItem 
     Case olExplorer 
      Set oMail = ActiveExplorer.Selection.Item(1) 
End Select 




strbody = "<H3><B></B></H3>" & _ 
"<br><br><B></B>" & _ 
      "Please visit this website to view your transactions.<br>" & _ 
      "Let me know if you have problems.<br>" & _ 
      "<A HREF=""http://www.google.com"">Questions</A>" & _ 
      "<br><br>Thank you" 

      SigString = Environ("appdata") & _ 
      "\Microsoft\Signatures\90 Days.htm" 

On Error Resume Next 

If Dir(SigString) <> "" Then 
      strGreetName = Left$(oMail.SenderName, InStr(1, oMail.SenderName, " ") - 1) 
End If 

If Dir(SigString) <> "" Then 
    Signature = GetBoiler(SigString) 
Else 
    Signature = "" 
End If 

Set oReply = oMail.ReplyAll 

With oReply 
    .CC = "" 
    .HTMLBody = "<Font Face=calibri>Dear " & strGreetName & "," & R1 & strbody & "<br>" & Signature 
    .Display 
End With 

End Sub 

Answer 1

テキストInStrは位置を返します。 https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/instr-function

オリジナルメールには送信者が1人あります。 ReplyAllには、元のメール送信者を含む受信者があります。

Option Explicit 

Private Sub ReplyFirstNames() 

Dim oMail As mailitem 
Dim oReply As mailitem 

Dim strGreetName As String 
Dim strGreetNameAll As String 

Dim i As Long 

Select Case Application.ActiveWindow.Class 
    Case olInspector 
     Set oMail = ActiveInspector.currentItem 
    Case olExplorer 
     Set oMail = ActiveExplorer.Selection.Item(1) 
End Select 

Set oReply = oMail.ReplyAll 

With oReply 

    Debug.Print "The reply all recipients are:" 

    For i = 1 To .Recipients.count 
     Debug.Print .Recipients(i) 

     ' Given the format First Last 
     strGreetName = Left(.Recipients(i), InStr(1, .Recipients(i), " ") - 1) 
     strGreetNameAll = strGreetNameAll & strGreetName & ", " 
    Next i 

    Debug.Print strGreetNameAll 
    ' remove extra comma and space from end 
    strGreetNameAll = Left(strGreetNameAll, Len(strGreetNameAll) - 2) 
    Debug.Print strGreetNameAll 

    .htmlbody = "<Font Face=calibri>" & strGreetNameAll & .htmlbody 
    .Display 

End With 

End Sub