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!
eMail aus anderem Postfach per VBA weiterleiten und dabei den Absender ändern
- 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
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
Re: eMail aus anderem Postfach per VBA weiterleiten und dabei den Absender ändern
Hallo Bruno,
vielen Dank für Tipp.
Eine neue email würde ich mit folgendem Code erstellen:
Wie kann ich eine eMail als Anlage hinzufügen?
Vielen Dank und Grüße
Rolf
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
Re: eMail aus anderem Postfach per VBA weiterleiten und dabei den Absender ändern
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:
Variante 2:
Hat jemand eine Idee, was ich da noch versuchen könnte?
Gruß
Rolf
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
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
- 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
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
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
Re: eMail aus anderem Postfach per VBA weiterleiten und dabei den Absender ändern
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
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
Wer ist online?
Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste