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:
1164		 Rating:
     
Antwort:
 Nein
Thema:
Office Outlook 2010 Kontakte "Speichern unter" ändern

Hallo Sarah,

hab mal ein bischen aufgeräumt..

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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