per VBA gesendete Mail erzeugt schwarzen Hintergru
09.05.2019 13:30:24
Anne
leider habe ich weder im Netz noch hier etwas passendes gefunden, deswegen frage ich mal in die Runde :
Kennt jemand das Phänom, dass eine Mail, die mit Outlook per Excel VBA versandt wird, die Formatierung ändert - in meinem Fall schwarzer Hintergrund.
Ich möchte 3Mails nacheinander versenden, bei allen ist das Skript identisch, nur die Quellsheets unterscheiden sich; die erste Email kommt "normal" formatiert an, die beiden anderen mit schwarzem Hintergrund :(
Das Skript sieht so aus :
Private Sub Send_Pos_Feedback
Dim objOutlook As Object
Dim Letztezeile As Long
Call Liste_fuer_Promotoren
Sheets("Promotoren").Select
On Error Resume Next
Set objOutlook = CreateObject("Outlook.Application")
If objOutlook Is Nothing Then
MsgBox "Outlook scheint nicht vorhanden," & vbCrLf & _
"oder nicht korrekt installiert zu sein!"
Exit Sub
End If
On Error GoTo ErrorHandler
Sheets("Promotoren").Select
Letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A1:I" & Letztezeile).Select
If Selection.Cells.Count = 1 Then
MsgBox "Bereich muss mehr als 1 Zelle enthalten"
Exit Sub
End If
ActiveWorkbook.EnvelopeVisible = True
With Me.MailEnvelope
.Introduction = "Hallo Kollegen," & vbLf & vbLf & "anbei die Feedbacks." & vbLf & vbLf & " _
_
Beste Grüße" & vbLf & " " & vbLf & "--- Der Report wurde automatisch versendet. ---"
.Item.to = "xxxxxx"
.Item.CC = "xxxxxx"
.Item.Subject = "Feedbacks der Promotoren"
If MsgBox("Wollen Sie den aktuellen Bereich versenden?", _
vbYesNo) = vbYes Then
.Item.Send
End If
End With
ActiveWorkbook.EnvelopeVisible = False
Exit Sub
ErrorHandler:
MsgBox "Fehler" & vbCrLf & Err.Description
End Sub
Wie gesagt, das Skript funktioniert auch tadellos beim Versand der 1.Mail, danach wirds komisch.....
Danke für eure Hinweise ;)
Viele Grüße,
Anne
