Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kontakte von Excel nach Outlook?

Forumthread: Kontakte von Excel nach Outlook?

Kontakte von Excel nach Outlook?
12.09.2003 04:21:34
Birgit
Hallo,
kann man von Excel aus ein VBA/Makro erstellen, dass von ausgewählten Zellen einen Kontakt in Outlook erstellt?
Wenn ja wäre ich für Hinweise sehr dankbar.

Gruß Birgit
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontakte von Excel nach Outlook?
13.09.2003 15:55:33
Reinhard
Hallo Birgit,
ich benutze outlook nicht. Vielleicht nützt dir das Nachstehende was ich unter
https://www.herber.de/forum/archiv/292to296/t293416.htm
fand, kannst ja da mal den thread lesen.
Gruß
Reinhard


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
Dim ifolder As Integer
Set oOl = CreateObject("Outlook.Application")
Set oNsp = oOl.GetNamespace("MAPI")
'hier der kritische Eintrag, der nicht funzt...
Set oFolder = oNsp.Folders(1).Folders("Kontakte")
Set oContact = oFolder.Items.Add
oContact.FirstName = "Micha"
oContact.LastName = "Scheffler"
oContact.Body = "Hallo"
oContact.Save
Set oContact = Nothing
Set oFolder = Nothing
Set oNsp = Nothing
Set oOl = Nothing
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige