Office: Datenübernahme von Exceltabelle in Microsoft Outlook 2003

Hallo alle zusammen.

Ich habe eine Frage die sicher sehr herausfordernd ist.
Ich will aus einer Excel Tabelle nummerische Daten (Tefefonnummern) übernehmen und in Microsoft Outlook 2003 in die Betreff Zeile importieren.
Dies soll wie folgt ausschauen:
08912345;07012345;03012345 usw.

Wie kann ich das am Besten durchführen

Vielen Dank im voraus.

 

Hallo!

Ich habe Outlook von meinem Rechner verbannt, daher kann ich leider nicht testen, aber in etwa so müsste es wohl funktionieren:

Code:

Sub KaiTeasy()
Dim outl As Object
Dim Mail As Object

'Im Folgenden werden die Werte aus Tabelle1!A1:A4
'zu einem String verkettet:
'"WertA1;WertA2;WertA3;WertA4"

Dim Betreff As String
Dim Zelle As Range
For Each Zelle In Sheets("Tabelle1").Range("A1:A4")
Betreff = Betreff & Zelle.Value & ";"
Next Zelle
Betreff = Left(Betreff, Len(Betreff) - 1)

'Ab hier wird die eMail zusammen gestellt, u.a.
'wird die String-Variable "Betreff" als Betreffzeile eingesetzt.

Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(olMailItem)

Mail.Subject = Betreff
Mail.Body = "Dies ist der Text, der in der eMail steht."
Mail.To = "irgendwas1@irgendwas1.de"
Mail.CC = "irgendwas2@irgendwas2.de"
Mail.Attachments.Add "C:\Dateien\Datei.xls"
Mail.Display

Set outl = Nothing
Set Mail = Nothing

End Sub

Vielleicht kannst du das für deine Zwecke anpassen.

 

Vielen Dank erst einmal

dass Du so schnell auf dieses Thema geantwortet hast.

Ich habe es versucht und es klappt ganz gut.
Allerdings werden unendlich viele Entwürfe geöffnet.
Kannst Du mit diese Problem beantworten?

 

Hallo!

Wie gesagt:

Das Makro habe ich aus einem Buch abgetippt, daher ging ich davon aus, dass es funktionieren sollte...

 

Danke

trotzdem. Muss ich mal einen Spezialisten im Bekanntenkreis suchen.

Servus,

Kai

 

Re: Danke

KaiTeasy
>Muss ich mal einen Spezialisten im Bekanntenkreis suchen.

Ist das Problem noch vorhanden? Ich erinnere mich dunkel, mal ein ähnliches Problem gehabt zu haben. Das war ein Problem, das aber auf der Microsoft-Seite bereits bekannt war.

Das Problem stellte sich, wenn man im www-Browser auf einen Mail-Link geklickt hatte. Dann klatschten plötzlich elend viele (50 oder so) Mail-Fenster auf.

Ursache war, wenn ich mich recht entsinne, das Fehlen des Default-Eintrags für das Mail-Programm in den internet-Optionen. Irgendwas hatte mir diesen Eintrag wohl mal dort entfernt. Nachdem ich wieder Outlook eingesetzt hatte, ging wieder alles normal.

Gruß, Michael