Email senden - auswählen
28.08.2013 12:58:09
amintire
ich habe folgenden Code um eine Tabelle als Mail (Lotus Notes) zu senden,
möchte aber das die E-Mail Adressen nicht im Code sondern in der Tabelle "Daten" I1, I2 usw hinterlegt sind.
Wie muss ich den Code anpassen? Wäre lieb wenn mir jemand dabei helfen könnte.
Gruß
Amintire
Sub SendNotesMail01()
Application.DisplayAlerts = False
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim Recipient1 As String
Dim Recipient2 As String
Dim Recipient3 As String
Dim e As String
Dim f As String
Dim EmbedObj As Object
Dim AttachME As Object
Sheets(".....").Copy
ActiveWorkbook.Save
AWS = ActiveWorkbook.FullName
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
On Error Resume Next
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = 'E-Mail Tabelle "Daten" I1
Recipient1 = 'E-Mail Tabelle "Daten" I2
Recipient2 = 'E-Mail Tabelle "Daten" I3
Recipient3 = 'E-Mail Tabelle "Daten" I4
MailDoc.sendto = Recipient
MailDoc.sendto = Recipient1
MailDoc.sendto = Recipient2
MailDoc.sendto = Recipient3
MailDoc.CopyTo = ""
MailDoc.Subject = "...." & Date
'MailDoc.SAVEMESSAGEONSEND = True
'Pfad zur zu versendenden Datei
Set AttachME = MailDoc.CREATERICHTEXTITEM(ActiveWorkbook.Path)
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", AWS)
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
MailDoc.SEND 0, Recipient1
MailDoc.SEND 0, Recipient2
MailDoc.SEND 0, Recipient3
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
Application.DisplayAlerts = True
MsgBox "E-Mail wurde gesendet!" 'optional
End Sub