Email aus VBA
04.06.2018 11:59:07
Daniel
muss mal wieder das Forum für ein vermutlich kleines Problem bemühen.
Problem 1. ich möchte folgenden Text als Email ausgeben, dabei gelingen mir keine Absetze der Befehl
wird verweigert?
Prolem 2. sobald ein .Body eingetragen ist wird meine Signatur vom Outlook nicht länger eingefügt. Der Befehl .GetInspector hat nichts geändert
Problem 3. Ich möchte den Bereich der a2 - b8 aus Tabellenblatt AnfrageEmail (als Tabelle) im Text wieder geben. Leider bekomm ich nur einzelne Zellen im Text sichtbar.
mein Code:
Sheets("AnfrageEmail").Select
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = ""
.CC =
.BCC = Range("c1")
.Subject = "Anfrage " & Range("B2")
.Body = "Sehr geehrte Damen und Herren,"_
& "blablabla." _
& Range("a2:b8")_
& "für Rückfragen stehe ich Ihnen gern zur Verfügung"
.Display
'.Send 'Hier könnte die Email direkt gesendet werden
End With