Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.04.2020 16:21:41 |
Claudia |
|
|
|
29.04.2020 20:25:49 |
Mase |
|
|
Outlook Betreff über vba ändern |
30.04.2020 06:20:05 |
Gast73275 |
|
|
|
04.05.2020 09:28:40 |
Claudia |
|
|
Von:
Gast73275 |
Datum:
30.04.2020 06:20:05 |
Views:
758 |
Rating:
|
Antwort:
|
Thema:
Outlook Betreff über vba ändern |
Public Sub InsertDate()
'=====================================================================
' Fügt an den Anfang des Betreffs der markierten Elemente das Datum ein.
' (c) Peter Marchert - http://www.outlook-stuff.com
' 2008-11-09 - Version 1.0.0
' 2008-11-21 - Version 1.0.1
' 2010-11-17 - Version 1.1.0
' 2013-03-01 - Version 2.0.0
'=====================================================================
Dim objSelection As Outlook.Selection ' Alle ausgewählten Elemente
Dim objItem As Object ' Aktuell geöffnetes Element
'---------------------------------------------------------------------
' Fehlerbehandlung wegen Set-Anweisungen ausschalten
'---------------------------------------------------------------------
On Error Resume Next
'---------------------------------------------------------------------
' Aktuell geöffnetes Element refernzieren
'---------------------------------------------------------------------
Set objItem = Outlook.ActiveInspector.CurrentItem
'---------------------------------------------------------------------
' Wenn kein Element geöffnet ist, dann markierte Elemente verwenden
'---------------------------------------------------------------------
If objItem Is Nothing Then
'-----------------------------------------------------------------
' Aktuelle Auswahl ermitteln
'-----------------------------------------------------------------
Set objSelection = Outlook.ActiveExplorer.Selection
'-----------------------------------------------------------------
' Auch nichts markiert?
'-----------------------------------------------------------------
If objSelection.Count = 0 Then GoTo ExitProc
'-----------------------------------------------------------------
' Markierte Elemente bearbeiten
'-----------------------------------------------------------------
For Each objItem In objSelection
'-------------------------------------------------------------
' Datum einfügen
'-------------------------------------------------------------
Call AddDate(objItem)
Next
Else
'-----------------------------------------------------------------
' Datum einfügen
'-----------------------------------------------------------------
Call AddDate(objItem)
End If
ExitProc:
'---------------------------------------------------------------------
' Referenz auf Objekte löschen
'---------------------------------------------------------------------
Set objItem = Nothing
Set objSelection = Nothing
End Sub
Private Sub AddDate(ByVal objItem As Object)
'=====================================================================
' Fügt an den Anfang des Betreffs eines Elements das Datum ein.
' (c) Peter Marchert - http://www.outlook-stuff.com
' 2013-03-01 - Version 1.0.0
'=====================================================================
Dim strDate As String ' Datum
Dim blnDate As Boolean ' Aktuelles Datum oder Empfangsdatum verwenden
Dim blnReplace As Boolean ' Eventuell vorhandenes Datum ersetzen
'---------------------------------------------------------------------
' Fehlerbehandlung ReceivedTime ausschalten
'---------------------------------------------------------------------
On Error Resume Next
'---------------------------------------------------------------------
' Soll das aktuelle Datum verwendet werden?
' True = Aktuelles Datum verwenden
' False = Empfangsdatum verwenden
'---------------------------------------------------------------------
blnDate = False
'---------------------------------------------------------------------
' Vorhandenes Datum ersetzen?
' True = Ja
' False = Nein
'---------------------------------------------------------------------
blnReplace = False
'---------------------------------------------------------------------
' Mit dem Formatbefehl wird das Datum maschinell sortierbar
'---------------------------------------------------------------------
If blnDate Then
strDate = Format(Date, "yyyyMMdd")
Else
strDate = Format(objItem.ReceivedTime, "yyyyMMdd")
End If
'---------------------------------------------------------------------
' Datum schon vorhanden?
'---------------------------------------------------------------------
If IsDate(Left(objItem.Subject, Len(strDate))) Then
If blnReplace Then
objItem.Subject = strDate & " " & Mid(objItem.Subject, Len(strDate) + 2)
End If
Else
objItem.Subject = strDate & " " & objItem.Subject
End If
'---------------------------------------------------------------------
' Änderung speichern
'---------------------------------------------------------------------
If Not objItem.Saved Then objItem.Save
'---------------------------------------------------------------------
' Referenz auf Element löschen
'---------------------------------------------------------------------
Set objItem = Nothing
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.04.2020 16:21:41 |
Claudia |
|
|
|
29.04.2020 20:25:49 |
Mase |
|
|
Outlook Betreff über vba ändern |
30.04.2020 06:20:05 |
Gast73275 |
|
|
|
04.05.2020 09:28:40 |
Claudia |
|
|