Email with Access and Lotus Notes Version 5.05

[rphbrew]

I was able to send emails to multiple recipients, now it breaks up the email address after the first name at the ampersan sign,

any suggestions on how to send the emails?

 

[tomvdduin]

Do you use automation for that, or just the simple mailto: line? Since when access breaks up the line? Can you give me more information so I can help you?

greetz

Tom

 

[rphbrew]

Here is the code we are using. This worked when we tested it. now the addresses are being messed up. I do not know if they did something with the mail server after we tested this code.

Private Sub EmailReports(ListSelection As String)
On Error GoTo Failure

Dim rst As Recordset
Dim EmailList As String
Dim notesdb As Object
Dim notesdoc As Object
Dim notesrtf As Object
Dim notessession As Object
Set notessession = CreateObject("Notes.Notessession&quot
Dim strCurrentPath As String
Dim strCurrentPath1 As String
Dim strCurrentPath2 As String

Set notesdb = notessession.GetDatabase("", "&quot
Call notesdb.OPENMAIL
DoCmd.OutputTo acOutputReport, "PLANS Query", acFormatRTF, "C:\Plans.doc"
DoCmd.OutputTo acOutputReport, "REPORTS Query", acFormatRTF, "C:\Reports.doc"
DoCmd.OutputTo acOutputReport, "VECO Query", acFormatRTF, "C:\VECO.doc"
strCurrentPath = "C:\Plans.doc"
strCurrentPath1 = "C:\Reports.doc"
strCurrentPath2 = "C:\VECO.doc"

Set rst = CurrentDb.OpenRecordset(ListSelection, dbOpenSnapshot)
rst.MoveFirst
Do Until rst.EOF 'loop to move through the records in the table
If EmailList = "" Then
EmailList = rst.Fields("email&quot
Else
EmailList = EmailList & ", " & rst.Fields("email&quot
End If
rst.MoveNext
Loop

Rem make new mail message
Set notesdoc = notesdb.CreateDocument
Call notesdoc.ReplaceItemValue("Sendto", EmailList)
Call notesdoc.ReplaceItemValue("Subject", "Validation Plans, Reports, and VECR/VECO&quot
Set notesrtf = notesdoc.CreateRichTextItem("body&quot
Call notesrtf.AppendText("Please review the following lists and bring any updates to the Validation meeting.&quot
Call notesrtf.AddNewLine(2)
Rem attach Error Report doc's = ActiveDocument.Path + "\" + ActiveDocument.Name
Call notesrtf.EmbedObject(1454, "", strCurrentPath, "Mail.rtf&quot
Call notesrtf.EmbedObject(1454, "", strCurrentPath1, "Mail.rtf&quot
Call notesrtf.EmbedObject(1454, "", strCurrentPath2, "Mail.rtf&quot
Rem send message
Call notesdoc.Send(False)
Call LogEvent("Emails Sent to " & ListSelection & ".&quot 'log event
Set notessession = Nothing

ExitRoutine:
Exit Sub
Failure:
Call DoErrLog(Application.CurrentObjectName, "EmailReports", ERR.Number, ERR.Description, True)
Resume ExitRoutine
End Sub