Outlook Antworten oder ReplyAll, um eine E-Mail

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "[email protected]"
objMail.cc = "[email protected]"
objMail.Subject = "Mail test"
objMail.HTMLBody = "This is my message"
unload me
objMail.Display
Set objMail = Nothing
Set objOutlook = Nothing

Ich versuche, fügen Sie in eine weitere Funktion, die helfen, Antworten einer ausgewählten E-Mail aber kann nicht herausfinden, wie kann ich mix das mit Item As Outlook.MailItem
Ich verstehe, dass die Beantwortung einer E-Mail erforderlich.

Also ich würde gerne wissen, wie ich hinzufügen können, so dass ich eine E-Mail auswählen, das makro auszuführen, und es wird die Eingabe der Empfänger-E-Mail in objMail.To und Empfängers Körper in objMail.HTMLBody

Bei der Antwort verwenden Dim Item As Outlook.MailItem dann Item.Reply oder Item.ReplyAll
Hallo Omar, vielen Dank. Aber es funktioniert nicht. Bedeutet, dass die Funktion " Dim Item As Outlook.MailItem' helfen zu erkennen, welche E-Mail ich ausgewählt habe?
Sie wollen einfach nur, um Antworten zu ausgewählten E-Mail?
Ja, sorry wenn ich das falsch interpretiert meine Frage. Meine aktuelle plan ist, wählen Sie eine E-Mail im Posteingang, und klicken Sie auf die makro-Taste, so dass es zeigt genau, was gezeigt wird, gerade wie, wenn Sie auf die Schaltfläche Antworten, aber der einzige Unterschied ist die Eingabe meiner Nachricht(mit objMail.HTMLBody) in der E-Mail als gut.

InformationsquelleAutor Zheng Yi Chew | 2015-08-04

  1. 3

    Einfach Antwort oder ReplyAll ausgewählte Nachrichten versuchen Sie Folgendes.

    Option Explicit
Sub ReplyMSG()
    Dim olItem As Outlook.MailItem
    Dim olReply As MailItem ' Reply
    Dim olRecip As Recipient ' Add Recipient

    For Each olItem In Application.ActiveExplorer.Selection
    Set olReply = olItem.ReplyAll
    Set olRecip = olReply.Recipients.Add("Email Address Here") ' Recipient Address
        olRecip.Type = olCC
            olReply.HTMLBody = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
        olReply.Display

        'olReply.Send
    Next olItem
End Sub

    Ausblenden der Empfänger verwenden BCC
    Beispiel

    olRecip.Type = olBcc

    Hinzufügen mehrere Empfänger einfach hinzufügen 

    Set olRecip = olReply.Recipients.Add("Email Here")
Set olRecip = olReply.Recipients.Add("Email Here")
Set olRecip = olReply.Recipients.Add("Email Here")

    Out-Empfänger versuchen, die folgenden.

    Option Explicit
Sub ReplyMSG()
    Dim olItem As Outlook.MailItem
    Dim olReply As MailItem ' Reply

    For Each olItem In Application.ActiveExplorer.Selection
    Set olReply = olItem.ReplyAll
            olReply.HTMLBody = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
        olReply.Display

        'olReply.Send
    Next olItem
End Sub
    Danke! Allerdings, die E-Mail-Empfänger wird standardmäßig nicht angezeigt. Ist es Weg, um es ohne keying?
    hast du das update Recipients.Add("Email Address Here") mit der richtigen E-Mail-Adresse?
    siehe meine aktualisierte Antwort, - der Letzte code, den ich habe, entfernt der Empfänger ist, dass das, was Sie Fragen?
    Dank Omar, bekam ich das Ergebnis.

    InformationsquelleAutor 0m3r

Schreibe einen Kommentar