den nachfolgenden Code konnte ich hier im Forum entdecken. Ich würde gerne erreichen, dass die E-Mail-Adressen, die in den Zellen B2, B3 und B4 der Tabelle Admin stehen, im Code "eingespielt" werden. Wäre soetwas möglich? - Ich danke schon jetzt für die Rückmeldungen. Herzliche Grüße - Wolfgang
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "info@mustermann.de"
.Subject = "Test"
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'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