Note: The other languages of the website are Google-translated. Back to English

Outlook: Automatische Erinnerung beim Vergessen von Anhängen in Nachrichten

Es kann Kopfschmerzen bereiten, das Hinzufügen von Anhängen zu vergessen, aber die Empfänger daran zu erinnern, Anhänge im E-Mail-Nachrichtentext zu überprüfen. Hier werden zwei Tricks vorgestellt, wie Sie sich automatisch daran erinnern können, wenn Sie eine E-Mail-Nachricht senden, in der möglicherweise Anhänge in Microsoft Outlook fehlen.

Automatische Erinnerung beim Vergessen von Anhängen in Outlook 2013/2016

Automatische Erinnerung beim Vergessen von Anhängen in Outlook 2007 und 2010

Entfernen Sie alle doppelten Kontakte aus einem oder mehreren Kontaktordnern in Outlook

In einigen Fällen können wir wiederholt dieselben Kontakte hinzufügen. Wie können doppelte Kontakte aus einem oder mehreren Kontaktordnern entfernt werden? Kutools for Outlook's Duplicate Contacts Mit dieser Funktion können doppelte Kontakte basierend auf E-Mails, dem vollständigen Namen oder anderen Kriterien aus einem oder mehreren Kontaktordnern schnell entfernt oder zusammengeführt werden.    Klicken Sie für 45 Tage kostenlose Testversion!
doc doppelte Kontakte entfernen 1
 
Kutools für Outlook: Mit Dutzenden praktischer Outlook-Add-Ins können Sie es innerhalb von 45 Tagen ohne Einschränkung testen.
Registerkarte "Office" - Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie die Arbeit erheblich ...
Kutools für Outlook - Bringt 100 leistungsstarke erweiterte Funktionen in Microsoft Outlook
  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Regeln; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten, wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen im Mail-Gespräch; Antworten Sie auf viele E-Mails gleichzeitig. Begrüßung automatisch hinzufügen bei der Antwort; Automatisches Hinzufügen von Datum und Uhrzeit zum Betreff ...
  • Anbaugeräte: Automatisch trennen, Alle komprimieren, Alle umbenennen, Alle automatisch speichern ... Kurzbericht, Ausgewählte Mails zählen, Doppelte Mails und Kontakte entfernen ...
  • Mehr als 100 erweiterte Funktionen werden Löse die meisten deiner Probleme in Outlook 2010-2019 und 365. Vollständige Funktionen 60-Tage-Testversion.

Pfeil blau rechte BlaseAutomatische Erinnerung beim Vergessen von Anhängen in Outlook 2013/2016

Microsoft Outlook 2013 unterstützt die Funktion, Sie automatisch zu warnen, wenn Sie eine E-Mail-Nachricht senden, in der möglicherweise Anhänge fehlen.

Schritt 1: Klicken Sie auf Reichen Sie das > Optionen.

Schritt 2: Klicken Sie im Dialogfeld Outlook-Optionen auf Mail in der linken Leiste.

Schritt 3: Gehe zum Sende Nachrichten Abschnitt, und überprüfen Sie die Option von Warnen Sie mich, wenn ich eine Nachricht sende, in der möglicherweise ein Anhang fehlt.

Schritt 4: Klicken Sie auf OK Schaltfläche, um dieses Dialogfeld zu schließen.

Microsoft Outlook 2013 oder 2016 warnt Sie dann automatisch, wenn Sie Anhänge vergessen.

Zum Beispiel geben Sie den Text von „Bitte überprüfen Sie die Anhänge", "Anhänge anzeigen”Usw. in Ihren Nachrichtentext, aber fügen Sie keine Anhänge in den Nachrichtentext ein Anhang Feld. Beim Klicken auf die Absenden Wenn Sie auf die Schaltfläche klicken, wird ein Warndialogfeld angezeigt, in dem Sie darauf hingewiesen werden, dass Sie möglicherweise vergessen haben, eine Datei anzuhängen. Siehe folgenden Screenshot:


Pfeil blau rechte BlaseAutomatische Erinnerung beim Vergessen von Anhängen in Outlook 2007 und 2010

Microsoft Outlook 2007 und 2010 unterstützen keine automatische Warnung, wenn Sie möglicherweise Anhänge vergessen. Ein VBA-Makro kann Ihnen dabei helfen.

Schritt 1: Drücken Sie die Taste Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual for Applications.

Schritt 2: Erweitern Sie das Projekt 1 in der linken Leiste und doppelklicken Sie auf DieseOutlookSession um es zu öffnen.

Schritt 3: Fügen Sie den folgenden Code in das Fenster ThisOutlookSession ein.

VBA: Warnung, wenn kein Anhang eingefügt wird

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

Schritt 4: Klicken Sie auf Sie sparen Schaltfläche in der Symbolleiste.

Von nun an, wenn Sie den Text „Befestigung”Im Nachrichtentext, aber keine Dateien anhängen, wird die Warnmeldung angezeigt, um Sie darauf hinzuweisen, dass Sie möglicherweise vergessen haben, eine Datei anzuhängen, wenn Sie auf klicken Absenden Taste. Siehe Screenshot:


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (34)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hallo, gr8 hilfe, danke. aber es gibt ein Problem, wenn das Datumsänderungsmakro nicht funktioniert, keine lebenslange Hilfe. ;-)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wirklich, es funktioniert. Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das Makro ausprobiert und nichts passiert - irgendeine Idee warum?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe Makros in Outlook 2010 aktiviert, aber der Code funktioniert nicht. Alle Dateien mit Anhang im Hauptteil werden weiterhin ohne Anhang gesendet.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dieses Makro funktioniert bei mir, aber leider hat die Firmen-erforderliche Signatur einen Vertraulichkeitsvermerk, der 3 mal die Arbeit "anhängen" enthält! Also bekomme ich die Popup-Warnung bei jeder E-Mail, die ich signiere. Wie kann ich das Makro so bearbeiten, dass wir nur gewarnt werden, wenn das Wort „Anhang“ viermal oder öfter in der E-Mail enthalten ist?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
In der Zeile mit der Aufschrift „If iIndex > 0 And Item.Attachments.count = 0 Then“ ändern Sie die erste 0 in eine 3, sodass es lautet: „If iIndex > 3 And Item.Attachments.count = 0 Then“ Diese Zeile wird überprüft wie oft Sie das in der vorherigen Zeile angegebene Wort gesagt haben, also denke ich, dass das Ihr Problem beheben wird.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Für einige von Ihnen, die bemerken, dass nichts passiert ist ... Ich konnte es nicht sofort zum Laufen bringen, aber als ich meinen Computer am nächsten Tag hochfuhr, funktionierte es einwandfrei. Vielleicht ist ein Neustart erforderlich?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist es möglich, nach mehr als einem Wort zu suchen? Überprüfen Sie z. B., ob "attach" und "enclosed" vorhanden sind. Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
In diesem Abschnitt des Codes ... iIndex = InStr(Item.Body, "attach") können Sie weitere Variablen oder "Strings" hinzufügen. Beispiel: iIndex = InStr(Item.Body, "attach", "attachment", "attaching") ... und so weiter. Stellen Sie jedoch sicher, dass Sie sie jeweils mit einem Komma trennen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für das Werkzeug. Ich verwende es in Outlook 2019. Es funktioniert. Nach Neustart von Outlook funktioniert es nicht mehr.
Ich möchte auch weitere Schlüsselwörter hinzufügen und habe darüber nachgedacht, sie so hinzuzufügen, wie Sie es getan haben.
Aber leider funktioniert es nicht. Irgendwelche Ideen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Sie müssen den vba-Code jedes Mal kopieren, wenn Sie Outlook starten. Wenn Sie ein nahtloses Erlebnis wünschen, können Sie die verwenden E-Mail-Warnung Merkmal von Kutools for Outlook:
On Kutoolen Klicken Sie neben der Registerkarte auf den Dropdown-Pfeil E-Mail-WarnungWählen Erinnere mich, wenn ich eine Nachricht sende, der Anhänge fehlen. Erstellen Sie dann Ihre Regel (siehe Screenshot unten) und aktivieren Sie die Funktion.
https://www.extendoffice.com/images/stories/comments/ljy-picture/remind-before-sendinng.png

Amandas
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Erstmal danke. Ich habe dies in unser Büro integriert, das auf 2010 läuft. Wir haben jedoch festgestellt, dass, wenn jemand eine E-Mail ursprünglich mit dem angehängten Wort gesendet hatte und nach mehreren Antworten das Makro immer noch das anfängliche "Anhängen" zählen würde. Großes Problem bei langen E-Mail-Convos, bei denen Sie aufgrund der ursprünglichen E-Mail immer wieder aufgefordert werden, einen Anhang hinzuzufügen. Gedanken?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Erstmal danke. Ich habe dies in unser Büro integriert, das auf 2010 läuft. Wir haben jedoch festgestellt, dass, wenn jemand eine E-Mail ursprünglich mit dem angehängten Wort gesendet hatte und nach mehreren Antworten das Makro immer noch das anfängliche "Anhängen" zählen würde. Großes Problem bei langen E-Mail-Convos, bei denen Sie aufgrund der ursprünglichen E-Mail immer wieder aufgefordert werden, einen Anhang hinzuzufügen. Gedanken?Von DAN[/quote] Ich dachte, ich würde eine Lösung teilen, die wir in meinem Büro zu diesem Thema gefunden haben. Dadurch werden Bilder, die der E-Mail hinzugefügt oder in der Signatur einer Person gefunden werden, nicht als Anhang gezählt. Und es wird nur Ihre letzte E-Mail gezählt, nicht der gesamte Text. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr( Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments .Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich weiß, dass dieser Thread ein paar Monate alt ist, also hoffe ich, dass du ihm immer noch folgst. Aus irgendeinem Grund kann ich Ihren Kommentar nicht vollständig sehen. Es wird bei "Do While i" abgeschnitten. Gibt es eine Möglichkeit, per E-Mail zu reposten oder zu senden? Danke im Voraus!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tolle Hilfe! :lol: es hilft sehr! vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hier ist alles, tut mir leid, es sieht so aus, als wäre etwas davon in der vorherigen Nachricht abgeschnitten worden ... Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr(Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments.Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Dan! Sieht so aus, als wäre Ihr zweiter Beitrag an derselben Stelle abgeschnitten. Ich bin mir nicht sicher, ob es im Forum eine Zeichenbeschränkung gibt ... vielleicht versuchen Sie, den Code zwischen den Beiträgen aufzuteilen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe dies verwendet und es funktioniert großartig, aber ich habe festgestellt, dass, wenn mir jemand antwortet und ich dann antworte, es die gesamte Spur der E-Mails durchsucht und nicht nur die eine, die gesendet wird. Gibt es eine Möglichkeit, dies zu ändern? Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hat jemand das zum Laufen bekommen? Ich habe diesen Code gemäß den obigen Anweisungen hinzugefügt, Makros aktiviert, aber nichts. Der Code tut nichts.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hat jemand das in Outlook 2010 zum Laufen gebracht? Ich habe die obigen Anweisungen befolgt und es tut sich nichts
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie stelle ich eine Warnung ein, wenn eine Nachricht ohne Anhang in Lotus Notes 8.5.3 gesendet wird?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe diesen Code verwendet und wenn ich ihn mit meiner E-Mail-Adresse in der to-Zeile teste, erhalte ich die Fehlermeldung, aber wenn ich jemand anderen dort einfüge, geht es gut durch. Irgendwelche Ideen, was passieren könnte?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist die Funktion für automatische Anhänge so konzipiert, dass sie funktioniert, wenn Sie E-Mails mit den Tasten Strg+Eingabe senden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist die Funktion zum automatischen Anhängen so konzipiert, dass sie funktioniert, wenn E-Mails mit der Tastenkombination Strg+Eingabe gesendet werden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dieser Code würde bei mir nicht funktionieren. Ich musste diesen verwenden:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then

Wenn Item.Attachments.Count = 0, dann

answer = MsgBox("Es gibt keinen Anhang, trotzdem senden?", vbYesNo)

Wenn Antwort = vbNo Then Cancel = True

End If

End If

End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn jemand Probleme bei der Verwendung dieses Codes hat, zählen Bilder in Ihrer Signatur als Anhänge.


Ich habe ein Bild in meiner Signatur, also ändere die Zeile:

If iIndex > 0 And Item.Attachments.Count = 0 Then

zu:

If iIndex > 0 And Item.Attachments.Count = 0 Or Item.Attachments.Count = 1 Then

Hat bei mir funktioniert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für den Hinweis, das war auch ein Problem, das ich hatte. Ich habe festgestellt, dass Ihr Fix die Warnung ausgelöst hat, unabhängig davon, ob das Wort "attach" verwendet wurde. Stattdessen habe ich verwendet:

If iIndex > 0 And Item.Attachments.Count = 1 Then

Dies löste die Warnung nur dann aus, wenn dies beabsichtigt war, nicht immer, wenn eine E-Mail gesendet wurde.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke Anthony, es hat funktioniert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
DANKE!
Dies funktioniert perfekt für mich mit "If iIndex > 0 And Item.Attachments.Count = 0", obwohl ich ein Bild in meiner Signatur habe. Ich verwende Microsoft Office Professional Plus 2010
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert bei mir nicht, unabhängig vom Zählwert. Ich habe hier alles versucht und aus irgendeinem Grund kann ich das Popup nie bekommen.
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte