Re: SendMail - mehrere Empfänger
06.05.2003 14:03:54
Martin
Hallo Matthias,ich persönlich bevorzuge auf folgende Lösung:
. Die namen der Empfänger werden auf einem eigenen Sheet aufgelistet und der Range wird benannt.
. Dieser Range wird dann ausgelesen.
Hier ein Teil des Codes..
--------------------------------------------
Sub SendMail()
Dim objOutlook As Object
Dim objMail As Object
Dim i As Integer
Dim strTO As String
Dim strCC As String
Dim strBCC As String
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
On Error Resume Next
' TO-Field
For i = 1 To Range("to").Rows.Count
strTO = strTO & Range("to").Rows(i).Value & ";"
Next i
' CC-Field
For i = 1 To Range("cc").Rows.Count
strCC = strCC & Range("cc").Rows(i).Value & ";"
Next i
' BCC-Field
For i = 1 To Range("bcc").Rows.Count
strBCC = strBCC & Range("bcc").Rows(i).Value & ";"
Next i
With objMail
.To = strTO
.cc = strCC
.bcc = strBCC
.Subject = "bla"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub
--------------------------------------------
Vielleicht hift es ja.
Gruss,
Martin