Border mit VBA per mail
01.05.2016 16:00:16
Zdravko
da ich nicht so mit VBA vertraut bin, kann mir mal jemand helfen
ich möchte bestimmten bereich per mail versenden das klappt auch gut nur
das die formatierung nicht übernommen wird.
wie kann ich border und farben in die mail miteinbauemn?
mfg
[code]
Private Sub CommandButton3_Click()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
'sonst geht es nicht
'Dataobject wird gebraucht wegen der Zwischenablage
Dim ClpObj As DataObject
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll
'Bereich wird in die Zwischenablage kopiert
Range("A1:F10").Copy
For i = 1 To 3
With Nachricht
.Subject = "Mail von mir"
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.To = "irgendwer@irgendein-provider.de"
'Hier wird die Mail angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
End With
Next i
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
[code]