Hallo liebe VBA Gemeinde,
ich habe folgendes Problem; mit diesem Code
Sub Send_Range() 'funktioniert nur mit Outlook
' Select the range of cells on the active worksheet.
ActiveWorkbook.Worksheets("Overview").Range("A1:J37").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 = "emailadresse xyz"
.Item.Subject = ActiveWorkbook.Worksheets("Overview").Range("M6")
.Item.Send
End With
End Sub
versende ich per Userform
Private Sub CommandButton1_Click()
Send_Range
End Sub
einen Zellbereich meines Excel Arbeitsblatts. Das Problem ist nur, dass beim Empänger die Formatierung des Zellenbereichs, den ich versende, also z.B. die Zellenfarbe etc., völlig zerschossen wird, falls er die Mail nicht mit Outlook, sondern z.B. mit Google-Mail öffnet. Dann fehlt jegliche Formatierung. Leider übersteigt dieses Problem meine rudimentären VBA Kenntnisse. Ich hoffe, jemand kann mir helfen.
LG Tobi
|