Hallo Zusammen,
Ich habe ein Problem, Ich versuche den Bereich A1:F21 als String zu machen jedoch funktioniert das ganze nicht. Früher habe ich den .Body per c&p gemacht was funktioniert hat jedoch fehlerhaft war.
Jetzt habe ich das ganze abgeändert das es per Variable funktioniert was er jedoch nicht will.
Code:
Sub Email()
Dim objOutlook As Object
Dim objMail As Object
Dim Text As String
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Text = Range("1:23").Value ' Hier ist der fehler
' Range("A1:F23").Select
' Selection.Copy
With objMail
.To = "egal"
.CC = "egal"
.Subject = "!"
.Display
.GetInspector
.HTMLbody = Text & .HTMLbody
' Application.Wait (Now + TimeValue("0:00:02"))
' Application.SendKeys "^(v)"
End With
' SendKeys "{NUMLOCK}", True
End Sub
Grüße,
Aarom
|