Office: Textinformationen einer Mail nach Excel übergeben

Hallo Zusammen,

ich brauche einen Ansatz :)

Ich versuche ein Makro zu erstellen, dass via klick auf einen Button Textinfromationen einer Mail nach Excel übergibt.

Gewünschtes Zenario:

Eine Mail mit bestimmten Textinformationen:

Name= Joern
Tel.nummer= 0123456789
E-Mail=123123@123123.df

wird geöffnet.

Via Klick sollen jetzt die Information
Joern
0123456789
123123@123123.df
in eine Excelvorlage an eine bestimmte Zelle übergeben werden.

Existieren eventuell Beispielmakros?
Hat jemand einen Ansatz für mich?


Danke für eure Hilfe.


MfG,


Joern

 

Hallo Jörn,

mit dem folgenden Code bekommst Du den Inhalt einer geöffneten E-Mail:

Code:

Dim objMail As Outlook.MailItem
Dim strArray() As String

Set objMail = Outlook.ActiveExplorer.CurrentItem

strArray() = Split(objMail.Body, vbCrLf)

Mit strArray(0), strArray(1) usw. kannst Du dann auf den Inhalt Zeilenweise zugreifen.

Um das nach Excel zu bekommen, setzt Du Dir am Besten einen Verweis auf Microsoft Excel und kannst dann in Outlook mit dem Objekten von Excel arbeiten (Workbook, Worksheet, Cells usw.).

Gruß
Peter

 

Hallo Peter,

danke für deine Antwort!
Ich werd das Makro posten wenn es lauffähig ist, bzw. wenn ich noch irgendwo hänge :)

Super Forum ... weiter so!