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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code:

Sub Mail_erstellen()
  Dim sMailtext As String, WSh As Worksheet
  
  Set WSh = ActiveSheet ' ThisWorkbook.Sheets("balaba")
  
  With CreateObject("Outlook.Application").CreateItem(0)

     .BodyFormat = 2                        ' HTML-Format
     .To = WSh.Range("I3").Value            ' Empfänger
     .CC = ""
     .Subject = WSh.Range("G3").Value       ' Betreff
     .Getinspector.Display                  ' Hole Signatur
     
     sMailtext = "Hallo,¶¶" _
               & "anbei sende ich Ihnen die Daten:¶"
     .htmlbody = Replace(sMailtext, "¶", "<br>") & "<br>" & .htmlbody

     WSh.Range("A1:A5").Copy                ' Bereich kopieren, ggf. Tabelle anpassen
     With .Getinspector.WordEditor.Application.Selection
          .Start = (Len(sMailtext) - 1)     ' Grafik Einfügestelle, ggf. mit Position spielen
          .Paste                            ' Bereich in Mail einfügen
     End With
    
     WSh.Range("H3").Value = Now() & " Uhr"
  End With

End Sub

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

Besteht vielleicht auch die Möglichkeit einen Sendedatum und Uhrzeit automatisch einzutragen, wenn eine Mail gesendet wurde?

in der Spalte AA10 bis AA210 stehen die Positionen von den Eintragung. in der Spalte AZ soll das Datum eingetragen werden, wenn eine Mail gesendet worden ist.

In der Mailversand Tabelle ziehe ich die Daten aus der Daten-Tabelle, damit ich die Daten untereinander habe. Das heißt, dass die Position von der Zeile ist schon durch die Spalte AA10 ... angegeben.
Das Makro soll nach dem Versand in der Spalte AZ Datum und Uhrzeit eingetragen werden.

Ich kann die Tabelle nicht mehr posten, weil so viele Daten darin sind. Notfalls muss ich die Tabelle neu erstellen.

Vielen Dank noch für die Mühe im Voraus.

Liebe Grüße
Lilli

Code:

Sub MailErstellen()
' Sendet Mail mit integriertem Bereich als Bereich mit Signatur
  Dim WSh       As Worksheet
  Dim sMailtext As String

  Set WSh = ThisWorkbook.Sheets("MailVersand")      ' Blatt mit Maildaten
  If CDate(WSh.Range("sende.termin").Value) >= Now() Then Exit Sub
  
  WSh.Range("mail.druck.bereich").Copy              ' Bereich kopieren
  
  With CreateObject("Outlook.Application").CreateItem(0)
      .BodyFormat = 2                               ' 2=HTML-Format, 3=Richtext
      .Subject = WSh.Range("betreff.zelle").Value   ' Betreff
      .To = WSh.Range("ziel.adresse").Value         ' Empfänger
      .CC = WSh.Range("ziel.adresse.2").Value       ' Kopie CC
'      sMailtext = "Hallo,¶Ihre Daten:¶¶"           ' Mailbodytext
'      sMailtext = Replace(sMailtext, "¶", vbLf)    ' Umbrüche einfügen
      .Getinspector.Display                         ' Signatur holen
      .htmlbody = Replace(sMailtext, vbLf, "") & .htmlbody
      
      With .Getinspector.WordEditor.Application.Selection
          .Start = Len(sMailtext):   .Paste         ' Grafik in Mail einfügen
      End With
      
      WSh.Range("AZ10").Value = Now() & " Uhr"      ' Sendeuhrzeit eintragen
  End With
End Sub

Beliebteste Forumthreads (12 Monate)

Bereich aus Excel per Mail versenden

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bereich aus Excel per Mail versenden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread