Email senden+copier
19.11.2004 11:44:12
Marcus
ich brauche bitte Eure Hilfe.
Ich haben folgenden code
'------------------------------------------------------------------------------
<pre>
Sub Outlook_Mail(EmailEmpfänger As String, EmailBetreff As String, _
Optional EmailMsg As String, Optional EmailAnlage As String)
'------------------------------------------------------------------------------
Dim myOlApp, olMailItem, MailItem, myRecipient, myAttachments
'Outlook wird geöffnet
Set myOlApp = CreateObject("Outlook.Application")
'Fenster für neue Mail wird geöffnet
Set MailItem = myOlApp.CreateItem(olMailItem) ' opens new email
'On Error GoTo ErrorHandler
'Empfänger der Mail wird in das Adressfeld "An:" geschrieben
Set myRecipient = MailItem.Recipients.Add(EmailEmpfänger)
'Betreff der Mail wird in das Feld "Betreff:" geschrieben
MailItem.Subject = EmailBetreff
'Der Text der Nachricht wird übertragen
MailItem.body = EmailMsg
'Wenn Anlage angehängt werden soll, in nächster Zeile
'das Apostroph entfernen.
'If EmailAnlage <> "" Then Set myAttachments = MailItem.Attachments.Add(EmailAnlage)
MailItem.Send 'Email wird gesendet
Exit Sub
ErrorHandler:
MsgBox vbTab & "Eine E-Mail an die Adresse " & vbCrLf & vbCrLf & _
vbTab & EmailEmpfänger & vbCrLf & vbCrLf & _
"kann leider NICHT automatisch versendet werden."
End Sub</pre>
Dieser funktioniert zum Mail senden auch super.
Mein Problem ist nur wie bekomm ich in diesen code noch die kopier rein.
Und zwar möchte ich die Mail an mehrere Empfänger senden.
Mit xy@dd.de, df@ff.de
geht es nicht.
Was muss ich anpassen damit ich eine Mail an mehrere Empfänger senden kann.
Zum Beispiel als CC oder so.
Danke schonmal
Marcus