Mehrere Adressen als E-Mail-Empfänger eintragen
09.07.2008 10:04:00
greenhorn
ich habe ein Modul in dem ein automatischer email-versand steht.
Ich möchte das ganze 4-5 leute per E-Mail und gleichzeitig per sms schicken.
Die email adresse habe ich be .To = stehen
die handy-nr. bei .CC
Meine Frage ist wie schreibe ich dort z.B. alle 5 Empfänger hintereinander ein? Ich bekomm immer wieder nur Fehlermeldungen im VB-editor.
Sub sende_stoermeldung(mld As String)
Dim MyMessage As Object, MyOutApp As Object
'InitializeOutlook = True
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "jemand@provider.de"
.CC = "handynummer@sms.tc"
.Subject = "Störmeldung: " & mld & " " & Date & " " & Time
'obige Leerzeichen bitte belassen
'Hier wird die Mail nochmals angezeigt
.Display
.Send
SendKeys "%S"
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Anzeige