E-Mail
14.02.2021 15:53:47
cs
ich möchte eine Mail versenden per Makros. Es funktioniert alles super, außer das der kopierte Bereich aus Excel nicht am Ende der Mail steht sondern ganz oben eingefügt wird.
Dadurch steht der Text, der eigentlich oben stehen sollte nun unten...
Wie löse ich das?
Hier der Code:
Sub Preisupdate()
Sheets("Preisanfrage").Select
ActiveSheet.Range("A2:AC30000").AutoFilter
Sheets("Preisanfrage").Range("A2:AC30000").AutoFilter 22, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
Range("A2").CurrentRegion.Select
Selection.Copy
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "xxx"
.CC = "xxx"
.Subject = "Preisupdate"
.Body = "Hallo Zusammen," & vbCr & vbCr & "hier das Preisupdate für heute:" & vbCr & vbCr & " _
Viele Grüße" & vbCr & vbCr
.Display
End With
'Kurz warten, damit die Mail Zeit zum Öffnen hat
Application.Wait (Now + TimeValue("0:00:03"))
' Dann die Zwischenablage einfügen
Application.SendKeys ("^v")
End Sub
Danke euch