Mail aus Zellen mit Text und Anhang

Hallo liebe Excel-Freunde,
ich möchte gerne Mails komplett aus verschiedenen Zelleninhalten direkt aus Excel generieren.
Dabei soll das so wie beim Serienbrief in Word laufen, also eine Kombination verschiedener Zelleninhalte als Datensatz (Mailadresse, Betreff, Inhalt/Text, Anhang).
Mit Hyperlink komme ich leider nicht weiter, weil dabei dann ja anscheinend die Textlänge sehr begrenzt ist, ich brauche aber deutlich mehr als 255 Zeichen. Außerdem soll eben auch immer ein entsprechender Anhang mit dabei sein.
Außerdem möchte ich dies aber eben nicht zum Versenden vieler Mails auf einmal, sondern nur auf Knopfdruck jeweils eine entsprechend zusammengestellte Mail versenden.
Ich hoffe, mein Problem wird deutlich und es gibt hierfür eine Lösung.
Vielen Dank, ich freue mich auf Rückmeldungen,
beste Grüße,
Norman

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code:

Option Explicit

Private Sub Mailsenden()
  Dim sMailtext As String
  Dim Wsh As Worksheet
  
  Set Wsh = ThisWorkbook.Sheets("Tabelle1")
  Wsh.Range("A5:B10").Copy                  ' Bereich kopieren
  
  With CreateObject("Outlook.Application").CreateItem(0)
      .Getinspector.Display
      .To = Wsh.Range("A1").Value
      .CC = ""
      .Bcc = ""
      .Subject = Wsh.Range("A4").Value
      sMailtext = "Hallo  " & Wsh.Range("A5").Value & "<br>hier ist eine Mail."
      .htmlbody = sMailtext & "<br><br>" & .htmlbody
      
      With .Getinspector.WordEditor.Application.Selection
          .Start = Len(sMailtext) - 2       ' Position ggf. anpassen
          .Paste                            ' Bereich in Mail einfügen
      End With
      .Attachments.Add ActiveWorkbook.FullName
  End With
End Sub

Hallo Norman,
ohne VBA kenne ich nur "Mailto". Da kannst Du aber meines Wissens keinen Anhang mit verschicken.
Außerdem ist eine VBA-Mail viel flexibler.
Hier eine Idee zu Deinem Vorhaben. Der Code kommt ins Tabellenmodul "Rechnungen".
Ein Doppelclick in Spalte "DT" versendet die eMail für die betreffende Zeile und markiert in Zelle DTx, dass die Mail versendet wurde. So ist Doppelversand ausgeschlossen.
Kannst es ja mal ausprobieren.

Code:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim iZeile As Long, Wsh As Worksheet
  
  Set Wsh = ThisWorkbook.Sheets("Rechnungen")
  With Target
       iZeile = .Row
       If .Column <> 124 Or iZeile < 2 Or Wsh.Cells(iZeile, "R").Value = "" Then Exit Sub
       If Wsh.Cells(iZeile, 124).Value = "Mail versendet" Then
          MsgBox "Diese Mail wurde schon verschickt!", vbExclamation, "Mailversan"
          Cancel = True: Exit Sub
       End If
  End With
  
  With CreateObject("Outlook.Application").CreateItem(0)
      .Getinspector.Display
      .To = Wsh.Cells(iZeile, "R").Value
      .Subject = Wsh.Cells(iZeile, "DJ").Value
      .body = Wsh.Cells(iZeile, "DK").Value _
            & vbLf & .body                       ' Signatur zufügen

      If Dir$(Wsh.Cells(iZeile, "DR").Value) <> "" Then
         .Attachments.Add Wsh.Cells(iZeile, "DR").Value
      End If
      Wsh.Cells(iZeile, 124).Value = "Mail versendet"
  End With
  Cancel = True
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Code:

With CreateObject("Outlook.Application").CreateItem(0)
     .BodyFormat = 2 ' HTML-Format
     .Getinspector.Display
     .To = Wsh.Cells(iZeile, "R").Value
     .Subject = Wsh.Cells(iZeile, "DJ").Value
     .body = Wsh.Cells(iZeile, "DK").Value _
           & vbLf & .body                       ' Signatur zufügen

     If Dir$(Wsh.Cells(iZeile, "DR").Value) <> "" Then
        .Attachments.Add Wsh.Cells(iZeile, "DR").Value
     End If
     Wsh.Cells(iZeile, 124).Value = "Mail versendet"
 End With

Beliebteste Forumthreads (12 Monate)

Mail aus Zellen mit Text und Anhang

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mail aus Zellen mit Text und Anhang

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread