Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
modify FileAs Field
zurück: Outlook-Meldung bei eMail-Sendung aus Excel weiter: ablegen der emails als txt per script? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
helixx23
FISI


Verfasst am:
01. Dez 2006, 15:41
Rufname:
Wohnort: Krefeld

modify FileAs Field - modify FileAs Field

Nach oben
       Version: Office 2003

Hi...

Habe hier ein Script gebaut welches das Feld "Speichern unter" modifiziert.

Code:

Sub cmdModSaveAs_Click()

On Error Resume Next

dim numerr, abouterr

Set olap = CreateObject("Outlook.Application")
Set olns = olap.GetNamespace("MAPI")
Set olfo = olns.PickFolder

msgbox olfo

Set ctlProgressBar = Item.GetInspector.ModifiedFormPages("modify speichern unter").Controls("ProgressBar2")

ask = msgbox (olfo.Items.Count & " Elemente werden abgearbeitet." , vbyesno)

if (ask = vbno)then exit sub

ctlProgressBar.Max = olfo.Items.Count
ctlProgressBar.Min = 0
ctlProgressBar.Value = 0

If Not IsNull(olfo) Then

   For Each objItem In olfo.Items

   If(instr(objItem.MessageClass, "IPM.Contact") > 0)then

   ctlProgressBar.Value = ctlProgressBar.Value + 1

      If (len(objItem.FirstName)>0) AND (len(objItem.LastName)>0) AND (len(objItem.CompanyName)>0) then
         objItem.FileAs = objItem.LastName & ", " & objItem.FirstName & " (" & objItem.CompanyName & ")"
         'MsgBox objItem.LastName & ", " & objItem.FirstName & " (" & objItem.CompanyName & ")"
      End If

      If (len(objItem.FirstName)=0) AND (len(objItem.LastName)>0) AND (len(objItem.CompanyName)>0) then
         objItem.FileAs = objItem.LastName & " (" & objItem.CompanyName & ")"
         'MsgBox objItem.LastName & " (" & objItem.CompanyName & ")"

      End If

      If (len(objItem.FirstName)=0) AND (len(objItem.LastName)=0) AND (len(objItem.CompanyName)>0) then
         objItem.FileAs = objItem.CompanyName
         'MsgBox objItem.CompanyName
      End If

      If (len(objItem.FirstName)=0) AND (len(objItem.LastName)>0) AND (len(objItem.CompanyName)=0) then
         objItem.FileAs = objItem.LastName
         'MsgBox objItem.LastName
      End If

      If (len(objItem.FirstName)>0) AND (len(objItem.LastName)=0) AND (len(objItem.CompanyName)=0) then
         objItem.FileAs = objItem.FirstName
         'MsgBox objItem.FirstName
      End If

      If (len(objItem.FirstName)>0) AND (len(objItem.LastName)=0) AND (len(objItem.CompanyName)>0) then
         objItem.FileAs = objItem.CompanyName
         'MsgBox objItem.CompanyName
      End If

      If (len(objItem.FirstName)>0) AND (len(objItem.LastName)>0) AND (len(objItem.CompanyName)=0) then
         objItem.FileAs = objItem.LastName & ", " & objItem.FirstName
         'MsgBox objItem.LastName & ", " & objItem.FirstName
      End If

   objItem.Save

   End If

numerr = Err.number
abouterr = Err.description
If numerr <> 0 Then
errorbox = msgbox ("Ein Fehler ist aufgetreten." & vbnewline & "Bei Objekt:" & objItem.User1 & " " & objItem.FirstName & " " & objItem.LastName & " " & objItem.CompanyName & " " & "Error number: ' " & numerr & " ' Description: ' " & abouterr & " '." & vbnewline & "Weiter machen?", vbyesno)
if(errorbox = vbno) then exit sub

End If

   Next

End If

msgbox "Fertig!"
ctlProgressBar.Value = 0

Set olap = Nothing


End Sub



Habe einen Kontakte Ordner mit ca 5.500 Kontakten.
Wenn ich jetzt dieses Script starte dann steigt der Virtuelle Arbeitsspeicher von Outlook auch ca 2GB an und stürtzt dann ab...

Was mache ich falsch?
Sieht doch ganz gut aus... oda?
Michael Bauer
MVP Outlook


Verfasst am:
02. Dez 2006, 13:18
Rufname:
Wohnort: Vollersode


AW: modify FileAs Field - AW: modify FileAs Field

Nach oben
       Version: Office 2003

Ich habe auf meiner Seite ein Beispiel veröffentlicht, wie man vielleicht das Problem mit dem Speicherleck in Outlook umgehen kann.

Bei der Gelegenheit will ich an dieser Stelle alle Programmierer, die noch eine Profi-Softwareausstattung brauchen, auf unsere fantastische Weihnachtsverlosung aufmerksam machen!

_________________
Michael Bauer
Tools für Microsoft Outlook
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Kontakte: Kontakte eines andern Benutzer im Field senden AN anzeigen 1 Gast 959 12. Sep 2006, 13:26
kraemer Kontakte eines andern Benutzer im Field senden AN anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum