/*footer search button*/ /*google-site-verification*/

VBA-Skript zum nachträglichen Anpassen der Kontaktformulare in Outlook

Aug 21, 2021 | Computer

VBA-Skript zum nachträglichen Anpassen der Kontaktformulare in Outlook Microsoft

Ok, ich gebe zu, es ist ein sehr spezielles Problem, aber wenn man davor steht und keine Lösung hat, dann nervt es. Die Anpassung der Kontaktformular hat keine Auswirkung auf bereits vorhandenen Kontakte. Mit Hilfe dieses Skripts kann man das nachträglich anwenden.

Ausgangslage: Anpassungen am Kontaktformular von Outlook

Dazu gibt es bereits einige Webseiten:

  1. Man aktiviert das Band mit der Entwickler-Menüleiste
  2. Entwirft das Formular usw.
  3. Speichert das Formular in Outlook (funktioniert auch mit gemeinsamen Outlookkontakte Ordner)
  4. Dann setzt man den Standard links auf diesem Kontakteordner mit der rechten Maustaste (bisher alles easy)

Anpassungen gelten nur für neue Kontakte nicht aber für bereits vorhandene Outlook Kontaktelemente

Problematisch ist jedoch die Tatsache, dass diese Anpassungen am Outlook Kontaktformular keine Auswirkung auf die alten Kontakte haben. Die vorhandenen Elemente bleiben alle unverändert.

VBA-Skript zum nachträglichen Anpassen der Kontaktformulare in Outlook

Hier kommt ein Skript mit dem man markierte Outlook Kontaktelemente nachträglich auf die neue Formular Variante zuordnen kann.

Das Makro muss über den Menüpunkt Makros (denkt daran das Entwickler-Menüband zu aktivieren) angesteuert werden. Dort kann man das speichern und ausführen.

Kontaktieren Sie uns NETZLEITER, wenn Sie weiterführende Unterstützung benötigen. Wir haben Spaß am Programmieren, Anpassen von Office Programmen und ein ausgeprägtes Helfersyndrom 🙂

 

Sub KontakteFormularMassenAenderung()
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objItem As Object
Dim strOldForm, strNewForm As String

'Get all selected items
  Set objSelection = Outlook.Application.ActiveExplorer.Selection

  If objSelection Is Nothing Then
    MsgBox "No item is selected.", vbExclamation + vbOKOnly
  Else
'Input the name of new form
    strNewForm = InputBox("Enter the name of new form:", , "IPM.Contact.Outlook_Formular_2021-08-21")
    If strNewForm <> "" Then
      For i = objSelection.Count To 1 Step -1
      Set objItem = objSelection(i)
      strOldForm = objItem.MessageClass

'Assign the new form to the selected items
    If LCase(strNewForm) <> LCase(strOldForm) Then
      objItem.MessageClass = strNewForm
      objItem.Save
    End If
    Next

    MsgBox "Successfully completed!", vbInformation + vbOKOnly
  End If
  End If
End Sub


outlook Microsoft
6 nuetzliche Google Suchtipps um schneller zu finden statt zu suchen

6 nuetzliche Google Suchtipps um schneller zu finden statt zu suchen

Wie sucht man eigentlich und lernt man das in der Schule?
6 nützliche Google Suchtipps um schneller zu finden statt zu suchen
1.1 Schlichtes design
1.2 Wie sucht man eigentlich und lernt man das in der Schule?
1.3 1. Inklusive und exklusive Suchworte – Plus und Minus vor Keywords
1.4 2. Suche innerhalb von Websites
1.5 3. Begrenzen Sie den Zeitraum
1.6 4. Mein persönlicher FAVORIT: Dateien suchen
1.7 Erweitern Sie Ihre Suche
1.8 Bonus Google Tricks:

mehr lesen