title image


Smiley Zwei andere Varianten...
Hallo Monika,



da hätte ich auch noch zwei Varianten:



Sub Excel_Workbook_Senden()

    Dim Nachricht As Object, OutApp As Object

    Set OutApp = CreateObject("Outlook.Application")

    Dim AWS As String

    'Aktive Arbeitsmappe wird als mail gesendet

    AWS = ThisWorkbook.FullName

    InitializeOutlook = True

    Set Nachricht = olAnw.CreateItem(0)

    With Nachricht

        .To = "rainer.beckerbauer@gmx.net"

        .Subject = "Testmeldung von Excel2000 " & Date & Time

        .Attachments.Add AWS

        .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."

        'Hier wird die Mail nochmals angezeigt

        .Display

        'Hier wird die Mail gleich in den Postausgang gelegt

        'Mail.Send

    End With

    OutApp.Quit

    Set OutApp = Nothing

    Set Nachricht = Nothing

End Sub

 

 

 

Sub Excel_Range_Senden()

    Dim OutApp As Object, Mail As Object

    'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!

    'sonst geht es nicht

    'Dataobject wird gebraucht wegen der Zwischenablage

    Dim ClpObj As DataObject

    Set ClpObj = New DataObject

    Set OutApp = CreateObject("Outlook.Application")

    Set Nachricht = OutApp.CreateItem(0)

    'Excelbereich der versendet werden soll

    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

End Sub





Code eingefügt mit Syntaxhighlighter 1.8
Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: