Per VBA Mail senden
24.10.2016 08:17:15
Alex
per VBA soll aus Excel ein Bereich kopiert und als Screenshot eingefügt werden.
Es existiert ein Fehler:
- das Bild wird nicht mitgesendet
Wenn ich ".send" auskommentiere und per Hand sende, wird das Bild mitgesendet, woran liegt das?
Ein Traum wäre noch, die Schriftgröße auf 11 anzupassen...
Code:
Private Sub Mail_senden()
Dim wsVerteiler As Worksheet
Dim strVerteiler, strDatei As String
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
Set wsVerteiler = ActiveWorkbook.Sheets("3_Tagesübersicht")
ActiveWorkbook.Save
strDatei = ThisWorkbook.FullName
i = 16
Do
strVerteiler = strVerteiler & wsVerteiler.Cells(i, 3).Value & "; "
i = i + 1
Loop While wsVerteiler.Cells(i, 3) ""
wsVerteiler.Range("A1:J13").CopyPicture xlScreen, xlBitmap
With olApp.CreateItem(0)
.To = strVerteiler
.Subject = "Tägliche KPI"
.GetInspector.Display
Signatur = .htmlbody
.htmlbody = "Hallo zusammen,
Anbei die tägliche KPI.
" _
_
.htmlbody = .htmlbody & "" & Signatur
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.ReadReceiptRequested = False
.Send
End With
Set olApp = Nothing
MsgBox "Die Datei wurde an: " & strVerteiler & " versendet."
End Sub
Besten Dank und viele Grüße,
Alex