AW: Wie kann man aus Excel eMails verschicken?
12.11.2004 08:45:07
Vera
Hallo Rainer
Danke für den Tip.
Habe jetzt folgenden Quellcode verwendet, der jedoch mit einer Fehlermeldung endet:
Sub Excel_Range_via_Outlook_Senden()
'Bestimmten Bereich einer Arbeitsmappe mit Outlook senden
'Mit diesem Code können Sie entweder einen vorher kopierten Bereich,
'oder einen bestimmten Bereich in ihrer Arbeitsmappe, mit Outlook versenden
'ohne die ganze Arbeitsmappe an den Empfänger zu senden.
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
'sonst geht es nicht Dataobject wird gebraucht wegen der Zwischenablage
Dim ClpObj As DataObject
For i = 1 To 10
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll.
'Wenn kein Bereich versendet werden soll sondern
'der Bereich bereits kopiert wurde, können sie die
'nächsten beiden Zeilen auskommentieren
Range("A1:A5").Select
'Bereich wird in die Zwischenablage kopiert
Selection.Copy
With Nachricht
.Subject = "Betreffzeile Header"
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.To = "irgendwer@irgendein-provider.de"
'Hier wird die Mail angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Auf Outlook warten. Ist nicht schnell genug :-))
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub
Das Makro verweist auf die Zeile:
Set OutApp = CreateObject("Outlook.Application")
mit der Fehlermeldung:
Laufzeitfehler 429: Objekterstellung durd die Activ-X Komponente nicht möglich.
Ich verwende Win2kProf und Outlook 2k
Wer weis Rat?
Liebe Grüße
Vera