Guten Abend,
ich hoffe ich stelle jetzt nicht die dümmste Frage aller Zeiten aber ich kenne mich überhaupt nicht mit programmieren aus. Ich habe im Internet einen Code gefunden, der genau das macht was ich haben möchte aber es müssten Kleinigkeiten geändert werden.
Es geht darum einen Betreff automatisch einfügen zulassen.
Problem am derzeitigen Code, er fragt mich auch beim antworten oder weiterleiten von Emails ob ich den Betreff eingefügt haben möchte.
Ich hoffe das mir einer von euch helfen kann.
Vielen Herzlichen Dank !
Hier ist der bisher benutzte Code:
Public WithEvents myOlInspectors As Outlook.Inspectors
Private WithEvents m_Inspector As Outlook.Inspector
Dim oSubject As String
Private Sub Application_Startup()
Set myOlInspectors = Application.Inspectors
End Sub
Private Sub m_Inspector_Activate()
If oSubject <> "" Then
If MsgBox("Soll der automatische Betreff eingefügt werden?", vbYesNo) = vbYes Then
m_Inspector.CurrentItem.Subject = oSubject & " / Test Betreff TD | "
Set m_Inspector = Nothing
End If
End If
End Sub
Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
oSubject = Inspector.CurrentItem.Subject
If Inspector.CurrentItem.EntryID = "" Then
Set m_Inspector = Inspector
End If
End Sub
|