habe nachstehenden Code (Ausschnitt) mit dem ich aus einer Datei eine Tabelle
versende. Beim versenden möchte ich direkt den Absender angeben - aber wie?
.From ...... funktioniert nicht?
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.From = "absender@online.de" ?
.To = "test@t-online.de"""
.Subject = "Test"
.attachments.Add AWS
.Body = "Test"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de