Send Range: ActiveSheet.MailEnvelope
12.06.2014 17:09:17
Henry
ich benutze folgenden VBA um aus Excel eine Range direkt per MailEnvelope zu versenden.
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A12:F100").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = ""
.Item.CC = "Beipsiel@Beispiel.de"
.Item.Subject = Range("F18").Value
.Item.Display
End With
End Sub
"Dieses Arbeitsblatt enthält ausgeblendete Zeilen oder Spalten, die der Empfänger einblenden kann. Möchten Sie den Vorgang fortsetzen ?"
Ich habe mir einige Testmails deshalb auf meine eigene E-Mail gesendet und konnte die Zeilen nicht einblenden. Also ging ich davon aus, dass die Warnung nicht relevant ist . Jedoch habe ich nun eine Emailantwort eines Empfängers bei dem alle Zeilen also auch die ausgeblendeten zu sehen waren.
Wie könnte ich das verhindern ?