Senden von E-Mail an mehrere Empfänger VBA

Question

Ich versuche, eine E-Mail an mehrere Empfänger zu senden, aber ich kann es nur an die letzte Person senden. Bitte helfen Sie mir, das Problem zu lösen. Hier

ist das Programm, ich habe:

Sub Mail_Sending_WholWorkbook_Attachment() 
' 
' Mail_Sending_WholWorkbook_Attachment Macro 
' This Macro is used to send the Bidresponse of the day as an attachment to the whole team with cc to santosh 
' 
' Keyboard Shortcut: Ctrl+Shift+B 
' 
'Working in Excel 2000-2016 
'This example send the last saved version of the Activeworkbook 
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 
    Dim OutApp As Object 
    Dim OutMail As Object 

    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(0) 

    On Error Resume Next 
    With OutMail 
     .to = "nagarjun.balarama@accenture.com" 
     .to = "nagarjun.b@bp.com" 
     .to = "nagarjungupta@yahoo.com" 
     .to = "nagarjunguptab@gmail.com" 
     .CC = "" 
     .BCC = "" 
     .Subject = "BID RESPONSE" 
     .Body = "THIS IS AN AUTOMATIC MAIL SENT THROUGH MACROS." & vbNewLine & " " & vbNewLine & "Hi Team," & vbNewLine & " " & vbNewLine & "Attached is the bid response for the day." & vbNewLine & " " & vbNewLine & "Thanks & Regards," & vbNewLine & "Nagarjun B" 
     .Attachments.Add ActiveWorkbook.FullName 
     'You can add other files also like this 
     '.Attachments.Add ("C:\test.txt") 
     .Send 'or use .Display 
    End With 
    On Error GoTo 0 

    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

Answer 1

Ich glaube, Sie einfach den „auf“ Wert mit dem neuesten Empfänger überschreiben. Sie müssen die Empfänger anfügen, indem Sie ein Semikolon als Trennzeichen verwenden.

Answer 2

Der Code sollte sein:

With OutMail 
     .to = "nagarjun.balarama@accenture.com;nagarjun.b@bp.com;nagarjungupta@yahoo.com;nagarjunguptab@gmail.com" 
     .CC = "" 
     .BCC = "" 
     .Subject = "BID RESPONSE" 
     .Body = "THIS IS AN AUTOMATIC MAIL SENT THROUGH MACROS." & vbNewLine & " " & vbNewLine & "Hi Team," & vbNewLine & " " & vbNewLine & "Attached is the bid response for the day." & vbNewLine & " " & vbNewLine & "Thanks & Regards," & vbNewLine & "Nagarjun B" 
     .Attachments.Add ActiveWorkbook.FullName 
     'You can add other files also like this 
     '.Attachments.Add ("C:\test.txt") 
     .Send 'or use .Display 
    End With 
    On Error GoTo 0 

Answer 3

Bitte verwenden; (Semikolon) wie unten,

.to = "nagarjun.balarama@accenture.com" & ";" & "nagarjun.b@bp.com" & ";" & "nagarjungupta@yahoo.com" & ";" & "nagarjunguptab@gmail.com" 

oder

Sie können auch die E-Mails-IDs in einem separaten Blatt deklarieren und den Zellenwert beziehen.

.to = Join(Application.Transpose(Worksheets("Sheet1").Range("A1:A4").Value), ";")