Frage - Nachrichtenoptionen\Kontakte per VBA - Digital-Inn

mb@btl · 23-06-2008

Hallo zusammen,

da gibt es bei den Nachrichtenoptionen (rechte Maustaste auf der Mail) ein Feld "Kontakte". Dieses Feld möchte ich gerne via vba mit einem Wert füllen. Dieser Wert ist kein Kontakt, sondern ich nutze dieses Feld als Suchordner, denn dieses Feld kann ich mir in meiner Mailübersicht anzeigen lassen.

Dafür habe ich folgenden Code:

Dim ThisEmail as MailItem
Dim ID as string
Set ThisEmail = Outlook.Application.ActiveExplorer.Selection.Item(1)
Set ID = "TEST"
ThisEmail.Links.add(ID)
ThisEmail.Save

Beim Kompilieren kommt die Meldung (bei ThisEmail.links.add): Objekt erforderlich.

Was mache ich falsch?

Vielen Dank im Voraus!

Gruß
michi

nak · 08-07-2009

Hallo,
diese Meldung muss kommen. ...Links.Add erwartet tatsächlich ein Objekt. Meines wissens muss das Objekt vom Typ ContactItem sein. Ob andere Objekttypen funktionieren habe ich nie ausgetestet. Vielleicht helfen Dir aber trotzdem die nachfolgenden Zeilen.

Code:

Sub AddContatct()
  
  Dim objMail As Outlook.MailItem
  Dim objContact As Outlook.ContactItem
  Set objContact = Application.CreateItem(olContactItem)
  objContact.LastName = "fjldjfldfls"
  objContact.Save
  Set objMail = Application.ActiveExplorer.Selection.Item(1)
  objMail.Links.Add objContact
  objContact.Delete
  objMail.Save

End Sub

Gruß Karsten Natebus

23-06-2008	#1
mb@btl Registered User Board-Frischling Join Date: Jun 2008 Location: Düsseldorf Posts: 1 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	Frage - Nachrichtenoptionen\Kontakte per VBA Hallo zusammen, da gibt es bei den Nachrichtenoptionen (rechte Maustaste auf der Mail) ein Feld "Kontakte". Dieses Feld möchte ich gerne via vba mit einem Wert füllen. Dieser Wert ist kein Kontakt, sondern ich nutze dieses Feld als Suchordner, denn dieses Feld kann ich mir in meiner Mailübersicht anzeigen lassen. Dafür habe ich folgenden Code: Dim ThisEmail as MailItem Dim ID as string Set ThisEmail = Outlook.Application.ActiveExplorer.Selection.Item(1) Set ID = "TEST" ThisEmail.Links.add(ID) ThisEmail.Save Beim Kompilieren kommt die Meldung (bei ThisEmail.links.add): Objekt erforderlich. Was mache ich falsch? Vielen Dank im Voraus! Gruß michi

08-07-2009	#2
nak Registered User Join Date: Jul 2009 Location: germany Posts: 3 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	Hallo, diese Meldung muss kommen. ...Links.Add erwartet tatsächlich ein Objekt. Meines wissens muss das Objekt vom Typ ContactItem sein. Ob andere Objekttypen funktionieren habe ich nie ausgetestet. Vielleicht helfen Dir aber trotzdem die nachfolgenden Zeilen. Code: Sub AddContatct() Dim objMail As Outlook.MailItem Dim objContact As Outlook.ContactItem Set objContact = Application.CreateItem(olContactItem) objContact.LastName = "fjldjfldfls" objContact.Save Set objMail = Application.ActiveExplorer.Selection.Item(1) objMail.Links.Add objContact objContact.Delete objMail.Save End Sub Gruß Karsten Natebus

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Sponsored Links

Sponsored Links