Thema Datum  Von Nutzer Rating
Antwort
19.07.2011 10:07:10 Sarah
NotSolved
Blau Office Outlook 2010 Kontakte "Speichern unter" ändern
 20.07.2011 13:02:17 Dekor
Solved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
20.07.2011 13:02:17		 Views:
1034		 Rating:
     
Antwort:
 Nein
Thema:
Office Outlook 2010 Kontakte "Speichern unter" ändern

Hallo Sarah,

hab mal ein bischen aufgeräumt..

 

Sub FileAs() 
   'On Error Resume Next
  '^ mach hier ein Hochkomma hin 
  ' damit dir die Fehler angezeigt werden!
   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 
                         '^diese Null kann weg
      x = x + 1 
      xt = x 
      If Items.Item(i) = "" Then 
         MsgBox "Fehler" 
         'End
         '^dieses End kann weg, es sollte besser folgendes hier stehen
         Exit Sub 
      Else 
         Userform1.TextBox1 = x Userform1.Label1 = Items.Item(i) 
         Userform1.Show 
      End If 
   Next i 
End Sub

probier mal ob es so läuft

Ihre Antwort
  • 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: Name: Email:



  • 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
19.07.2011 10:07:10 Sarah
NotSolved
Blau Office Outlook 2010 Kontakte "Speichern unter" ändern
 20.07.2011 13:02:17 Dekor
Solved