Hallo Leute,
ich habe schon sehr viel im Internet dazu gesucht, falls es schon eine Lösung hier im Forum gibt, tut es mir leid, aber dann habe ich sie nicht gefunden.
Also folgendes:
Ich habe mir ein Makro aus dem Internet gesucht, welches die Ansicht des "speichern unter" Feldes bei makierten Kontakten so einstellt, dass erst der Firmenname dann der Nachname mit Vorname erscheint.
Sub FileAs()
On Error Resume Next
Dim Items As Outlook.Selection
Dim objItem As ContactItem
Dim x As Integer
Dim xt As String
Dim i As Long
x = 0
Set Items = Application.ActiveExplorer.Selection
MsgBox Application.ActiveExplorer.Selection(175)
For i = 1 To Items.Count
SCompany = Items.Item(i).CompanyName
SName = Items.Item(i).LastNameAndFirstName
If SCompany = "" Then
Items.Item(i).FileAs = SName
Else
Items.Item(i).FileAs = SCompany & " (" & SName & ")"
End If
Items.Item(i).Save
Items.Item(i).Close 0
x = x + 1
xt = x
If Items.Item(i) = "" Then
MsgBox "Fehler"
End
Else
Userform1.TextBox1 = x
Userform1.Label1 = Items.Item(i)
Userform1.Show
End If
Next i
End Sub
Soweit so gut, er ändert auch etwas und zwar ca. die ersten 160 Kontakte und dann hört er einfach ohne Fehlermeldung auf ...
Ich möchte aber eigentlich, dass ALLE makierten Kontakte geändert werden.
Für Hilfe wäre ich sehr dankbar
Liebe Grüße |