Hier ist ein Makro, das in der Lage sein sollte, die Arbeit zu erledigen, die Sie suchen. modifizieren Sie es einfach nach Ihren Wünschen.
Public Sub CreateMessageSignature() Dim objMsg As MailItem Dim theDay As Integer Dim hoursStart, hoursEnd As Double Dim custom As String Set objMsg = Application.CreateItem(MailItem) theDay = Weekday(Now) hoursStart = TimeValue("8:00:00 am") hoursEnd = TimeValue("4:30:00 pm") custom = "This message is sent out of office hours." If theDay > 1 And theDay < 7 Then ' Mon-Fri If Now > hoursStart And Now < hoursEnd Then ' The current time is between office hours custom = "This message is sent during office hours." End If End If With objMsg .HTMLBody = "Greetings,<br><br> Sincerely,<br><br>John Smith<br>contact@example.com<br>(123)-456-7890<br>" & custom & strBuffer .Display End With
End Sub
Wenn Sie nicht wissen, wie Sie es einrichten möchten:
- Aktivieren Sie das Entwicklermenü in Outlook: Datei → Optionen → Multifunktionsleiste anpassen → Bubble im Entwicklermenü.
- Erstellen Sie das Makro: Menü Entwickler → Makros → Geben Sie einen Namen ein, insbesondere
CreateMessageSignature
(sofern Sie die Funktion nicht umbenennen möchten) → Klicken Sie auf "Erstellen" → Kopieren und fügen Sie das Makro ein (Achtung vor Einrückungen) → Ändern Sie es nach Belieben → Speichern (Strg + S) - Fügen Sie nun die Schaltfläche zum Abschnitt "Startseite" des Menübands hinzu: Datei → Optionen → Multifunktionsleiste anpassen → Erstellen Sie eine neue Gruppe in "Startseite (Mail)", benennen Sie sie nach Belieben → Wählen Sie sie aus und suchen Sie auf der rechten Seite das gerade erstellte Makro und drücken Sie "Hinzufügen".
Viel Glück!