Excel97 to Outlook97
12.08.2003 10:59:50
Marcello Iten
Nach langem Suchen und viel Hilfe von Euch, habe ich doch nochmals eine Frage... Ich bekomme einfach keine Verbdinung zu meinem "persönlichen Adressbuch" (PAB). Ich möchte gerne von Exel aus einen Eintrag (add) ins PAB vornehmen.
ich stelle mir das so vor: erstelle eine neue Adresse in Outlook mit einer bestimmten FAX Nr. Mit dieser neuen Adresse möchte ich dann eine Mail erstellen. Dadurch wird automatisch ein FAX (läuft bei uns Automatisch) versenden inkl. dem aktuellen XLS als Attachment.
Es funktioniert alles prima. ich kann eine Mail erstellen, Att. hinzufügen, mail versenden etc. etc... NUR den PAB Eintrag bekomme ich nicht hin. Es Muss das PAB sei, weil im "Standard Adressverzeichnis" darf ich nichts ändern (bin kein ADMIN).
Hier Teile des Codes...:
Public
Sub ins_Persönliche_AdressBuch_schreiben()
Dim oOl As Outlook.Application
Dim oNsp As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oContact As Outlook.ContactItem
Set oOl = CreateObject("Outlook.Application")
Set oNsp = oOl.GetNamespace("MAPI")
'hier der kritische Eintrag, der nicht funzt...
Set oFolder = oNsp.Folders("persönliches Adreßbuch")
Set oContact = oFolder.Items("Test Eintrag")
oContact.Body = "Hallo"
oContact.Save
Set oContact = Nothing
Set oFolder = Nothing
Set oNsp = Nothing
Set oOl = Nothing
End Sub
PS. Dieser Code ist bestimmt von Hans oder einem anderen "Super-Hirn". Habe den Code im Archiv gefunden. Ich habe auch schon alle Google Einträge abgeklappert... NICHTS gefunden. Leider.
Erbitte um Hilfe. Danke.
Marcello
Anzeige