Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige