Mail per Excel verschicken
28.09.2002 13:36:02
Peter
habe folgende VBA:
Sub via_Outlook_Senden()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
Dim ClpObj As DataObject
Set aaa = Sheets("menü").Range("h28")
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Range("A1:A50").Select
Selection.Copy
With Nachricht
.Subject = "Ihre Online Bestellung"
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.To = aaa
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Application.Wait (Now + TimeValue("0:00:00"))
Sheets("menü").Select
End Sub
Funktioniert einwandfrei, aber die Mail wird von der Standardmailadresse verschickt.
Kann ich in diesem Makro meine Sendemailadresse angeben?
Danke im voraus
Peter