pdf an Serienemails beifügen
05.11.2014 11:00:50
Larissa
ich habe bereits ein Makro mit dem ich Serienemails erstellen kann.
Jeder Email soll aber noch ein pdf beigefügt werden, dessen Pfad sich in Spalte M(13) befindet. Das Makro ist so programmiert, dass nur Emais generiert werden, wenn ein "x" in Spalte A ist.
Option Explicit
Sub Email_mit_Anhang()
Dim sSheet As String
Dim sText As String
Dim sTo As String
Dim sSubject As String
Dim lRow As Long
Dim myRng As Range
With ActiveSheet
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
sSubject = Sheets("Text").Range("A2").Value 'Betreff
For Each myRng In .Range(.Cells(2, 1), .Cells(lRow, 1))
If myRng.Value = "x" Then
sTo = .Cells(myRng.Row, 11).Value 'Emailadresse
sText = ""
sText = sText & .Cells(myRng.Row, 6) & "
" 'Anrede
sText = sText & Sheets("Text").Range("B2").Value 'Emailtext
Call SendMailOutlook(sSubject, sTo, sText) 'verschicken
End If
Next myRng
End With
End Sub
Vielen vielen Dank.
Larissa