Excel Zwischenablage per VBA in Outlook Textfeld

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Excel_Serienmail_via_Outlook_Senden() Dim OutApp As Object, Mail As Object Dim i As Integer, rngBereich As Range Dim Nachricht Set OutApp = CreateObject("Outlook.Application") Set Nachricht = OutApp.CreateItem(0) Set rngBereich = Range("A4:H5") rngBereich.Copy With Nachricht .To = Cells(2, 1) 'Adresse .Subject = Cells(2, 3) 'Betreffzeile .Body = rngBereich.PasteSpecial(xlAll) 'Cells(2, 4) & vbCr & vbCr & strBereich _ '& vbCr & vbCr & Cells(2, 5) 'Sendetext .Display SendKeys "%s", True '.Send End With 'Variablen zurücksetzen sonst geht es nicht Set OutApp = Nothing 'CreateObject("Outlook.Application") Set Nachricht = Nothing 'OutApp.CreateItem(0) End Sub

Habe nochmals gehackt aber ich komme einfach nicht weiter....
Wäre sehr froh wenn mir da jemand helfen könnte!!!!!
Excel-Zwischenablage einfügen im Outlook-Mail Body nicht. Habe etwas probiert aber eben....


Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer, rngBereich As Range
Dim Nachricht
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Set rngBereich = Range("A4:H5")
rngBereich.Copy
With Nachricht
.To = Cells(2, 1) 'Adresse
.Subject = Cells(2, 3) 'Betreffzeile
.Body = rngBereich.PasteSpecial(xlAll)
'Cells(2, 4) & vbCr & vbCr & strBereich _
'& vbCr & vbCr & Cells(2, 5) 'Sendetext
.Display
SendKeys "%s", True
'.Send
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
End Sub

Gruss
TOM

Hallo
um die zwischenablage zu versenden musst du folgenden Code verwenden

Sub Send_Message_via_Clipboard()
    Dim myOutApp As Object, myMessage As Object
    'Verweis auf "Microsoft Forms 2.0 Object Library" (..\system32\FM20.DLL) aktivieren !!
    'sonst geht es nicht
    'Dataobject wird gebraucht wegen der Zwischenablage
    Dim myClpObj As DataObject
    Set myClpObj = New DataObject
    Set myOutApp = CreateObject("Outlook.Application")
    Set myMessage = myOutApp.CreateItem(0)
    With myMessage
        .To = "irgendwer@irgendein-provider.de"
        .Subject = "Betreffzeile Header"
        'Zwischenablage wird eingefügt
        myClpObj.GetFromClipboard
        .body = myClpObj.GetText(1)
        'Hier wird die Mail angezeigt
        .Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        '.Send
    End With
    Set myOutApp = Nothing
    Set myMessage = Nothing
End Sub

Du musst das entsprechenden natürlich vorher manuell kopieren
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Excel Zwischenablage per VBA in Outlook Textfeld

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Zwischenablage per VBA in Outlook Textfeld

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread