Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Outlook + Excel

Outlook + Excel
15.07.2002 16:18:15
dPo2000
Ist es möglich alle e-Mails eines bestimmten Outlook Ordners per Makro auszulesen ? Wenn Ja, besitzt jemand ein Teil-/ Beispielmakro ?


Wenn Nein, entschuldigt die Belästigung ;P


mfg
dPo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Outlook + Excel
15.07.2002 18:51:43
Peter
Hi dPo,

versuch's mal mit folgendem Code (ist noch anzupassen):

Sub AdressenVonOutlook()
Dim workingFolder As MAPIFolder
Dim objItem ' As MailItem
Dim i As Integer
Dim olMAPI As New Outlook.Application

Range("A2").Select
Set workingFolder = olMAPI.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

For i = 1 To workingFolder.Items.Count
Set objItem = workingFolder.Items(i).Email1Address ' Typen unverträglich !!
With objItem
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddress
ActiveCell.Offset(0, 3).Value = .Email1Address
ActiveCell.Offset(0, 4).Value = .HomeTelephoneNumber
ActiveCell.Offset(0, 5).Value = .BusinessTelephoneNumber
ActiveCell.Offset(0, 6).Value = .BusinessFaxNumber
ActiveCell.Offset(0, 7).Value = .Birthday
ActiveCell.Offset(0, 8).Value = .Body
End With
ActiveCell.Offset(1, 0).Select
Next i

Set objItem = Nothing
Set olMAPI = Nothing
End Sub

Gruss
Peter

Anzeige
Re: Outlook + Excel
15.07.2002 19:18:00
dPo2000
Danke Peter !


Mal sehen was ich dami anfangen kann... wenn was spezielles rauskommt informiere ich euch ;P

danke nochmal...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige