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

Das Rohrpost-System aus Redmond dürfte wohl eines der wichtigsten Kommunikationssysteme weltweit sein. Leider können schon ein Versionswechsel oder die Umstellung von IMAP auf POP zu herben Datenverlusten führen. BackUps sind nirgends wichtiger als hier.
Benutzeravatar
d'r Bastler
Beiträge: 735
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 189 Mal
Danksagung erhalten: 96 Mal

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

#11

Beitrag von d'r Bastler »

Und noch mal ich mit meinen blöden Regeln :lol:

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 :roll: 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!
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
RTausD
Beiträge: 26
Registriert: 19. Sep 2022, 08:46
Danksagung erhalten: 3 Mal
Kontaktdaten:

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

#12

Beitrag von 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
Beiträge: 26
Registriert: 19. Sep 2022, 08:46
Danksagung erhalten: 3 Mal
Kontaktdaten:

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

#13

Beitrag von 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
Benutzeravatar
69bruno
Site Admin
Beiträge: 25
Registriert: 27. Sep 2022, 14:58
Danksagung erhalten: 14 Mal
Kontaktdaten:

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

#14

Beitrag von 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
Beiträge: 26
Registriert: 19. Sep 2022, 08:46
Danksagung erhalten: 3 Mal
Kontaktdaten:

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

#15

Beitrag von 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
Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste