Outlook nach Excel

Forumthread: Outlook nach Excel

Outlook nach Excel

18.05.2006 19:23:30

Kisselstein

Hallo Zusammen,
ich hab ein kleines Problem bei dem ich nicht mehr weiter komme und auch nichts gefunden habe:
Gibt es eine Möglichkeit die Notizfelder aus Outlook Per VBA anzusprechen und nach Excel zu übertragen.
Gruß Kisselstein

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlook nach Excel

18.05.2006 23:22:30

Reinhard
AW: Outlook nach Excel

19.05.2006 10:00:54

Kisselstein
AW: Outlook nach Excel

21.05.2006 11:04:12

Tassos

AW: Outlook nach Excel

19.05.2006 10:00:54

Kisselstein

Hi Reinhard,
nicht ganz. Das hätte ich vielleicht noch dazuschreiben: ich will nicht auf die Notizen der Kontakte zugreifen, dazu hab ich einige Beiträge gefunden, sondern auf die Notizen, in die ich schnell Infos etc. eingeben kann. Diese möchte ich nach Excel exportieren.
Gruß und Danke Kisselstein

AW: Outlook nach Excel

21.05.2006 11:04:12

Tassos

Hallo,
Hier ein BeispielCode (Verweis "Outlook xx Object Library" aktivieren):
Option Explicit
Sub olNotes()
Dim ol As Object, oINotes As MAPIFolder, oNote As NoteItem, i%
Set ol = CreateObject("Outlook.Application")
Set oINotes = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderNotes)
  i = Range("A" & Rows.Count).End(xlUp).Row + 1
   For Each oNote In oINotes.Items
  Cells(i, 1).RowHeight = 94.5
Cells(i, 1) = oNote.LastModificationTime
Cells(i, 2) = oNote.Body
oNote.Close olSave
i = i + 1
Next
Set ol = Nothing
End Sub
Es gibt aber eine Einschränkung durch
eine Outlook - Sicherheitswarnung:
"Ein Programm versucht, auf Ihre in Outlook
gespeicherten E-Mail-Adressen zuzugreifen..."
Es lässt sich aber umgehen S. hier:
http://www.contextmagic.com/express-clickyes/
Viel eleganter wäre es wenn man die Notizen
von Outlook nach Excel exportiert.
Dazu der BeispielCode (in einem Modul im Outlook-VBA-Fenster kopieren):
Option Explicit
Sub olNotes()
Dim oINotes As MAPIFolder, oNote As NoteItem, i%, xl As Object, ws As Object
    Set oINotes = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderNotes)
    Set xl = CreateObject("Excel.Application")
    Set ws = xl.Workbooks.Open("C:\test\Mappe.xls")
    xl.WindowState = 2
    xl.Visible = True
    i = 1
    For Each oNote In oINotes.Items
    With ws.Sheets(1)
.Cells(i, 1) = oNote.Body
.Cells(i, 2).Offset(, 1) = oNote.LastModificationTime
'.Columns.autofit
End With
i = i + 1
    Next
End Sub
Gruss
Tassos

Beliebteste Forumthreads (12 Monate)

Forumthread: Outlook nach Excel

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread