E-Mail einfügen funzt nicht
17.01.2008 10:05:00
Fredd
Ich versuche eine E-Mail aus Exel zu verschicken. Und zwar habe ich einen Bestimmten Bereich der Kopiert werden soll mit allen Formatierungen und Linien+ Text. Die E-Mail geht zwar auf und der Bereich der Kopiert werden soll wird selectiert, aber leider wird er in der Email nicht eingefügt. Weis jemand was an dem Code Falsch ist?
Sub BEREICHMAILEN()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
' nachfolgend den gewünschten Tabellenbereich einstellen
Range("A1:N102").Select
Selection.Copy
' Öffnen der Mail
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.Subject = "Betrefftext"
.To = "Email@dresse.de"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Kurz warten, damit die Mail Zeit zum Öffnen hat
Application.Wait (Now + TimeValue("0:00:05"))
' Dann die Zwischenablage einfügen
Application.SendKeys ("%bi") ' im Menü BEARBEITEN (Alt-B) das e-I-nfügen wählen
'Application.SendKeys ("^v") ' Strg-V Anweisung ist die 2.Möglichkeit statt Alt-B + I
End Sub