Outlook an mehrere senden
23.10.2013 21:36:51
Heinz
Der untere Code sendet mir eine Datei an den Empfänger der in A100 steht.
Wie kann ich noch A101 bis A110 hinzufügen,egal ob als .TO oder .CC
Könnte mir bitte jemand helfen?
Gruß Heinz
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Dim Mail As Object
'Dim i As Integer
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
Mail.To = Cells(100, 1)
Mail.CC = Cells(101, 1) 'Adresse
.Subject = "Sperrmeldung:" & " " & Cells(19, 3) & " " & Cells(19, 9) & " " & Cells( _
19, 10) 'Betreffzeile
.attachments.Add AWS
.Body = Cells(1, 3) 'Sendetext
'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