eMail aus anderem Postfach per VBA weiterleiten und dabei den Absender ändern

[d'r Bastler]

Und noch mal ich mit meinen blöden Regeln

Dass kleine Betriebe nicht unbedingt mit allen modernen EDV-Wassern gewaschen sind, ist im semi-digitalisierten Deutschland leider eine traurige Wahrheit, an der man nur bedingt vorbeikommt.

Aber folgender Weg sollte auch für antike Schreibmaschinentäter gangbar sein: Ihr vergebt als Rechnungsempfänger eine Auftragsnummer, die die erforderlichen Merkmale enthält. Bei Rechnungsstellung bitte angeben sollte auch für Auftragnehmer zu schaffen sein, die ihre Rechnungen noch mit dem Abakus erstellen Und dann greifen wieder die blöd....

Falls einer der Auftragnehmer dann Unterstützung braucht, seine Buchhaltung etwas zu modernisieren: Ich habe als Mini-Auftrag mehrfach leicht zu bedienenden Faktura-Sheets geschrieben ... [für die dann auch Steuerberater und Finanzämter dankbar waren]

Schönen Abend noch!

[RTausD]

Hallo Bruno,

vielen Dank für Tipp.

Eine neue email würde ich mit folgendem Code erstellen:

Code: Alles auswählen

Sub Text_neue_eMail()
    Set neue_eMail = Application.CreateItem(olMailItem)
    neue_eMail.Display
    neue_eMail.To = "Test@Test.de"
    neue_eMail.Subject = "Test"
End Sub

Wie kann ich eine eMail als Anlage hinzufügen?

Vielen Dank und Grüße

Rolf

[RTausD]

Hallo allerseits,

der Tipp von Bruno hat mich auch die Idee gebracht, die eMail in mein Postfach zu kopieren und von dort zu versenden.
Wenn ich das manuell mache, wird automatisch mein eigenes Postfach als Versender ausgewählt.

Wenn ich das per VBA mache, ignoriert Outlook den Befehl SendUsingAccount in beiden Varianten (s.u.), die ich ausprobiert habe.

Variante 1:

Code: Alles auswählen

Sub Test_Weiterleitung_eMails_aus_fremdem_Postfach()
    Dim Postfach As Object
    Set olNsp = Application.Application.GetNamespace("MAPI")
    Set Postfach = olNsp.GetDefaultFolder(olFolderInbox)
    Set Postfach = Postfach.Parent
    Set Zielordner = olNsp.GetDefaultFolder(olFolderDeletedItems)
    Set Auswahl = Application.ActiveExplorer.Selection
    Frage = 6
    If Auswahl.Count > 1 Then
        Anzahl_Auswahl = Auswahl.Count
        Frage = MsgBox("Sollen die PDF-Anhänge der " & Auswahl.Count & " ausgewählten eMails weitergeleitet werden?" & Chr(10) & Chr(10), 4, "Weiterleitung ausgewählter eMails")
    End If
    If Frage = 7 Then Exit Sub
    For Each aktuelle_eMail In Auswahl
        Set kopierte_eMail = aktuelle_eMail.Copy
        kopierte_eMail.Move Zielordner
        Set Weiterleitung = kopierte_eMail.Forward
        Weiterleitung.Display
        Weiterleitung.Subject = "Test Weiterleitung eMail aus fremdem Postfach ( " & Format(Now, "YYYY-MM-DD  hh:mm") & " )"
        Set Weiterleitung.SendUsingAccount = Postfach
    Next
End Sub

Variante 2:

Code: Alles auswählen

Sub Test_Weiterleitung_eMails_aus_fremdem_Postfach()
    Dim OutlookAccount As Outlook.Account
    Set OutlookAccount = Application.Session.Accounts(1)
    Set Zielordner = olNsp.GetDefaultFolder(olFolderDeletedItems)
    Set Auswahl = Application.ActiveExplorer.Selection
    Frage = 6
    If Auswahl.Count > 1 Then
        Anzahl_Auswahl = Auswahl.Count
        Frage = MsgBox("Sollen die PDF-Anhänge der " & Auswahl.Count & " ausgewählten eMails weitergeleitet werden?" & Chr(10) & Chr(10), 4, "Weiterleitung ausgewählter eMails")
    End If
    If Frage = 7 Then Exit Sub
    For Each aktuelle_eMail In Auswahl
        Set kopierte_eMail = aktuelle_eMail.Copy
        kopierte_eMail.Move Zielordner
        Set Weiterleitung = kopierte_eMail.Forward
        Weiterleitung.Display
        Weiterleitung.Subject = "Test Weiterleitung eMail aus fremdem Postfach ( " & Format(Now, "YYYY-MM-DD  hh:mm") & " )"
        Set Weiterleitung.SendUsingAccount = OutlookAccount
    Next
End Sub

Hat jemand eine Idee, was ich da noch versuchen könnte?

Gruß

Rolf

[69bruno]

Hi,

ich habe gerade leider sehr wenig Zeit, daher kann ich Dir nur Lesestoff anbieten.
M.E. müsstest Du die geöffnete Mail zwischenspeichern und dann den Code unter diesem Link an Deine Bedürfnisse anpassen:
https://learn.microsoft.com/de-de/offic ... il-message

[RTausD]

Hallo Bruno,

ich habe den Befehl "Weiterleitung.Save" an unterschiedlichen Stellen eingefügt.
Leider hat das nichts gebracht.

Ich werde mir mal den Link anschauen, den Du gepostet hast.
Wenn ich das finde, werde ich es hier posten.

Gruß

Rolf