wie bekomme ich es hin, an mehrere Empfänger eine Kopie zu schicken? So trägt das Makro zwar alle Empfänger ein, sendet aber nur an eine Person.
Dim Betreff As String
Dim Empfaenger As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim ABSENDER As String
Dim DATEIANHANG As String
Dim rtitem As Object
Dim EmbeddedObject As Object
Empfaenger = MailTo
Betreff = "Mail vom " & Date & " " & Time
Text1 = MailText
DATEIANHANG = "I:\Technik\Dispo\HNA Nachtproduktion\" & ort & ".xls"
ABSENDER = ""
On Error GoTo Err_Mail_Click
Dim SessionNotes As Object, NotesDB As Object, NotesDoc As Object
Set SessionNotes = CreateObject("Notes.NOTESSESSION")
Set NotesDB = SessionNotes.GetDatabase("", "")
NotesDB.OPENMAIL
If NotesDB.IsOpen = False Then
MsgBox "Bitte melden Sie sich zunächst vollständig in Notes an!", vbInformation + vbOKOnly
Exit Sub
End If
Set NotesDoc = NotesDB.CreateDocument
With NotesDoc
.Form = "Memo"
.Subject = "test"
.sendto = "holger_hoyer@dierichs.de"
.copyto = "wolfgang_krieg@dierichs.de,holger_hoyer@dierichs.de,bjoern_luckhart@dierichs.de"
'.blindcopyto= "" 'Blindkopie
.body = "" 'Text
'.body = Text1 & vbCrLf & ABSENDER
'.DefaultMailSaveOption = 0
'.MailSaveOption = 0
'.DeliveryReport = "B"
.Importance = "2"
'.logo = "Scania"
.SAVEMESSAGEONSEND = False ' bei True wird ein Exemplar in Notes in Gesendet gestellt
'.ReturnReceipt = "1"
'.Sign = "1"
'.encrypt ="0"
'.Principal = session.UserName
'.viewicon ="74"
'.from = session.UserName
'.SaveOptions = 0
'.SecureMail = ""
'.SenderTag = "F"
''''''''''''''''''''''''''''' Dateianhang''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim$(DATEIANHANG) "" Then
Const embed_ATT = 1454
Set rtitem = .CreateRichTextItem("DATEIANHANG")
Set EmbeddedObject = rtitem.EmbedObject(embed_ATT, "", DATEIANHANG, "DATEIANHANG")
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Send False
End With
Set SessionNotes = Nothing
Set NotesDB = Nothing
Set NotesDoc = Nothing
Set rtitem = Nothing
Set EmbeddedObject = Nothing
Exit_Mail_Click:
Exit Sub
Err_Mail_Click:
MsgBox Err.Description
Resume Exit_Mail_Click
End Sub