Bereich aus Excel per Mail versenden

Hallo Zusammen,

ich habe hier im Archiv gesucht und bin zum Teil und zum Glück fündig geworden.
Ich suche bitte eine Lösung, wo ich einen Bereich in Excel per Outlook versenden kann.

Den Code, den ich im Archiv gefunden habe:

Sub Excel_FixRange_via_Outlook_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
    Set ClpObj = New DataObject
    Set OutApp = CreateObject("Outlook.Application")
    Set Nachricht = OutApp.CreateItem(0)
    'Excelbereich der versendet werden soll
    'Bereich wird in die Zwischenablage kopiert
    Range("A1:A5").Copy
    For i = 1 To 3
    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
    Next i
    Set OutApp = Nothing
    Set Nachricht = Nothing
End Sub

Ich bräuchte bitte einige Ergänzungen.
a) Der Betreff soll aus der Zelle G3 bzw. ich habe es betreff.zelle genannt.
b) mit dem Code bekomme ich nur den Inhalt, leider nur als Text. Aber ich möchte gerne, dass die Tabelle so wie sie ist mit all die Formatierung übertragen wird.
c) ich möchte in Zelle H3 bzw. die benannte Zelle sende.termin Datum und Uhrzeit schreiben, wann es versendet werden soll.
d) Der Empfänger soll bitte auch aus eine Zelle kommen. I3 bzw. ziel.adresse

Vielen lieben Dank für die Hilfe und für die Mühe im Voraus.

Liebe Grüße,
Lilli

Hallo Karl-Heinz,

ich habe von Deine Seite bzw. von den Link, was Du gepostet hast folgenden Code genommen und es hat super funktioniert.

Sub MailErstellen()
' Sendet Mail mit integriertem Bereich als Bereich mit Signatur
  Dim WSh As Worksheet
  Dim sMailtext As String
  Dim sBer As String
  
  sBer = "mail.druck.bereich"                       ' Kopierbereich
  Set WSh = ThisWorkbook.Sheets("MailVersand")        ' Blatt mit Maildaten
  
  WSh.Range(sBer).Copy                              ' Bereich kopieren
  
  With CreateObject("Outlook.Application").CreateItem(0)
      .BodyFormat = 2                               ' 2=HTML-Format, 3=Richtext
      .Subject = WSh.Range("betreff.zelle")         ' Betreff
      .To = "ziel.adresse" ' Empfänger
      .CC = "ziel.adresse.2" ' Kopie CC
'      sMailtext = "Hallo,¶Ihre Daten:¶¶"             ' Mailbodytext
'      sMailtext = Replace(sMailtext, "¶", vbLf)     ' Umbrüche einfügen
      .Getinspector                                 ' Signatur holen
      .htmlbody = Replace(sMailtext, vbLf, "
") & .htmlbody
      .Display
      
      With .Getinspector.WordEditor.Application.Selection
          .Start = Len(sMailtext):   .Paste         ' Grafik in Mail einfügen
      End With
      
  End With
End Sub

zwei Sachen funktionieren noch nicht so ganz ist:
Die Empfängeradresse möchte ich gerne aus eine Zelle entnehmen: aus G5 oder ziel.adresse
und die CC Empfängeradresse soll auch aus eine Zelle sein: aus G6 oder ziel.adresse.2

was für mich noch wichtig wäre, dass der Absendezeit aus eine Zelle ist: G8 oder sende.termin

Vielen Dank für Deine Mühe im Voraus.

liebe Grüße,
Lilli :)

Bereich aus Excel per Mail versenden

Forumthread: Bereich aus Excel per Mail versenden

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial