email Versand- zum Makro noch Text hinzufügen
01.02.2005 08:49:27
Tilo
vielleicht kann mir mal jemand helfen! Habe eine Datei die ich aus Excel als Parameterabfrage an einen Kunden schicke. Das funktioniert bestens, jedoch wird die Mail immer sofort zum Versand gebracht. Ich möchte jedoch noch Text im Textfeld der Mail einfügen. Leider bin ich überfragt, was die Programmierung betrifft. Zwei Versionen wären interessant:
a. Mail wird nicht sofort versandt und ich kann den Text vor dem senden händisch eintragen und
b. Ich kann im Makro einen Text einfügen der in jeder Mail erscheint!
Hier die Ausgangssituation:
Sub EmailVersand()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Range("A1:H67")
sAddress = Range("C11")
Workbooks.Add 1
rng.Copy Range("A1")
Columns("A:H").Select
Selection.ColumnWidth = 10.71
Range("A1").Select
ActiveWorkbook.SendMail sAddress, "Parameterabfrage"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Vieleicht hat ja jemand einen Tipp.
Danke Tilo
Anzeige