Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular anhand eines benutzerdefinierten Feldes finden
zurück: E-Mail per Makro über Outlook Express anstatt Outlook weiter: Suche im Betreff einer Email 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
jörg01
Gast


Verfasst am:
20. Dez 2006, 15:57
Rufname:

Formular anhand eines benutzerdefinierten Feldes finden - Formular anhand eines benutzerdefinierten Feldes finden

Nach oben
       Version: Office 2003

Hallo, ich hab wieder eine Frage.
Von einem Formular soll ein Knopf gedrückt werden, welcher in einem Ordner andere Formulare mit der gleichen Auftragsnummer raussuchen soll und diese abändern soll.

Bisher hab ich folgenden Code:

Code:
   
sub cmdButton1_click
   dim myItems, myNS, objFolder, strAuftrag, obj
   dim strFormKorrespondenz

   strAuftrag = Item.UserProperties.Find("Auftrag").Value
   strFormKorrespondenz = "IPM.Note.Korrespondenz"

   set myNS = Application.GetNameSpace("MAPI")
   set objFolder = myNS.Folders("Öffentliche Ordner") _
        .Folders("Alle Öffentlichen Ordner").Folders("Support") _
        .Folders("Interner Support")
   set myItems = objFolder.Items
   
   for each obj in myItems
      if obj.MessageClass = strFormKorrespondenz then
         if obj.UserProperties.Find("Auftrag") = strAuftrag then
            obj.FlagStatus = 1
            obj.Save
         end if
      end if
   next
   
   set myItems = Nothing
   set myNS = Nothing
   set objFolder = Nothing
   set strAuftrag = Nothing
   set obj = Nothing
end sub


Das Ergebnis führt zwar zum Erfolg, der FlagStatus wird geändert, aber es wird trotzdem eine unbekannte Fehlermeldung bei if obj.UserProperties.Find("Auftrag") = strAuftrag then ausgeworfen. Warum? Für Hilfe wäre ich mehr als dankbar.

Gruß Jörg
jörg01
Gast


Verfasst am:
21. Dez 2006, 15:28
Rufname:


AW: Formular anhand eines benutzerdefinierten Feldes finden - AW: Formular anhand eines benutzerdefinierten Feldes finden

Nach oben
       Version: Office 2003

Ich bin dem eigentlichen Problem nun ausgewischen. Anstatt das benutzerdefinierte Feld "Auftrag" zu vergleichen, such ich nun im Betreff nach der Auftragsnummer, die da nun fest drin steht. Das klappt dann ohne Probleme.

Hier der Code:

Code:
   dim myItems, myNS, objFolder, strAuftrag, obj

   strAuftrag = Item.UserProperties.Find("Auftrag").Value
   set myNS = Application.GetNameSpace("MAPI")
   set objFolder = myNS.Folders("Öffentliche Ordner") _
        .Folders("Alle Öffentlichen Ordner").Folders("Support") _
        .Folders("Interner Support")
   set myItems = objFolder.Items
   
   For Each obj in myItems
      If obj.MessageClass = strFormKorrespondenz then
             if instr(obj.Subject, strAuftrag) > 0 Then
            obj.FlagStatus = 1
            obj.Save
         end if
      end if
   Next

   set myItems = Nothing
   set myNS = Nothing
   set objFolder = Nothing
   set strAuftrag = Nothing
   set obj = Nothing


Wenn jemand trotzdem noch eine Idee hat, warum das nicht hinhaut mit der Abfrage von einem benutzerdefinierten Feld, würde ich mich über ein kurzes Statement freuen.

Gruß Ciao
Jörg
Andreas.Fischer
Outlook - Moderator


Verfasst am:
22. Dez 2006, 08:31
Rufname:
Wohnort: Berlin

AW: Formular anhand eines benutzerdefinierten Feldes finden - AW: Formular anhand eines benutzerdefinierten Feldes finden

Nach oben
       Version: Office 2003

Hallo Jörg,

Hast du es mal ohne Find probiert? Die Codezeile sollte dann so aussehen:
Code:
if obj.UserProperties("Auftrag") = strAuftrag then

_________________
Gruß Andreas

Das besondere Erleben.
jörg01
Gast


Verfasst am:
22. Dez 2006, 13:06
Rufname:

AW: Formular anhand eines benutzerdefinierten Feldes finden - AW: Formular anhand eines benutzerdefinierten Feldes finden

Nach oben
       Version: Office 2003

Hallo Andreas,

hab das mal ausprobiert. Da gibts leider auch nur eine Fehlermeldung. Es scheint so, als gebe es in diesem Ordner noch ältere Formulare mit gleichen Formularnamen, wo das Feld "Auftrag" noch nicht vorhanden ist. Vielleicht gibts deswegen das Problem.

Gruß Jörg
Andreas.Fischer
Outlook - Moderator


Verfasst am:
22. Dez 2006, 13:56
Rufname:
Wohnort: Berlin

AW: Formular anhand eines benutzerdefinierten Feldes finden - AW: Formular anhand eines benutzerdefinierten Feldes finden

Nach oben
       Version: Office 2003

Das ist der Fehler. Passe deine Schleife an. Sie sollte dann ungefähr so aussehen:
Code:
for each obj in myItems
      if obj.MessageClass = strFormKorrespondenz then
       If Not obj.UserProperties("Auftrag") Is Nothing Then
         if obj.UserProperties("Auftrag") = strAuftrag then
            obj.FlagStatus = 1
            obj.Save
         end if
       end if
      End If
   next

_________________
Gruß Andreas

Das besondere Erleben.
jörg01
Gast


Verfasst am:
02. Jan 2007, 10:57
Rufname:


AW: Formular anhand eines benutzerdefinierten Feldes finden - AW: Formular anhand eines benutzerdefinierten Feldes finden

Nach oben
       Version: Office 2003

ja das war es. vielen dank und ich wünsche einen guten start in das neue jahr.
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: eigenes Formular mit Anzeigefehler (Schriftgröße) 0 schmar 156 29. Jan 2014, 13:09
schmar eigenes Formular mit Anzeigefehler (Schriftgröße)
Keine neuen Beiträge Outlook Mail: Verschlüsselte E-Mail anhand von Regel weiterleiten 1 Anja1980 413 09. Jul 2012, 10:05
Cink Verschlüsselte E-Mail anhand von Regel weiterleiten
Keine neuen Beiträge Outlook Mail: Drucken des Bcc feldes bei Outlook 2003 4 loli5 9859 08. Mai 2012, 08:36
Gastuser Drucken des Bcc feldes bei Outlook 2003
Keine neuen Beiträge Outlook Mail: Outlook mit Exchange Profile -> Profileinträge finden 3 Havoc2009 483 20. Jun 2011, 11:14
nimenn Outlook mit Exchange Profile -> Profileinträge finden
Keine neuen Beiträge Outlook Mail: Unterordner anhand Betreff anlegen und Mail dort verschieben 1 Sono 595 09. Mai 2011, 11:29
Michael Bauer Unterordner anhand Betreff anlegen und Mail dort verschieben
Keine neuen Beiträge Outlook Kontakte: Kontaktimport aus Excel mit benutzerdefinierten Feldern 0 abe1999 1000 21. Feb 2011, 17:34
abe1999 Kontaktimport aus Excel mit benutzerdefinierten Feldern
Keine neuen Beiträge Outlook Kontakte: Kontaktordner - Visitenkarten und Formular ändern 7 musicsurfer 4328 18. Jan 2011, 00:46
McMipo Kontaktordner - Visitenkarten und Formular ändern
Keine neuen Beiträge Outlook Kontakte: Kontaktkarte-Felder zuordenen (eigenes Formular) 1 invisible_boy2 1717 16. März 2010, 16:50
Oliver V Kontaktkarte-Felder zuordenen  (eigenes Formular)
Keine neuen Beiträge Outlook Kontakte: Darstellung selbst entwickeltes Kontakt Formular in OL 2007 1 chris145 485 07. Nov 2009, 14:40
chris145 Darstellung selbst entwickeltes Kontakt Formular in OL 2007
Keine neuen Beiträge Outlook Kalender: Termine anhand Beschriftung ein- und ausblenden 5 OLLI_S 2546 06. Jul 2009, 09:23
OLLI_S Termine anhand Beschriftung ein- und ausblenden
Keine neuen Beiträge Outlook Mail: Antortmail schnell finden 2 maxxi 383 12. Apr 2008, 09:28
Gast Antortmail schnell finden
Keine neuen Beiträge Outlook Kontakte: Exceldaten in Adressbuch mit eigenem Formular importieren 1 mas2002 2531 26. Apr 2007, 13:00
Oliver V Exceldaten in Adressbuch mit eigenem Formular importieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS