Hi all, and a Happy New Year to everyone.
I have a problem I’ve been struggling with for ages. I have some code for sending an Excel file (from Excel VBA) via Lotus Notes, however, I need the file to be sent as an attachment, but it keeps sending it as an embedded object. I have looked at what feels like hundreds of forums, but I just cannot find an answer!!
Someone tested the code this morning and with the code unmodified, it came through as an attachment!!! So it worked, but I’m still no closer to an answer. At least it looks like it’s not a code issue, but more like a version or settings issue. I am unable to find out the version of Lotus Notes that was used to send the test email. I am using version 6.0.2 CF2 on Windows XP.
Does anyone have any clues about how I could resolve this please? My curent code below:
Sub SendEmail()
Dim objMailDB As Object
Dim objMailDoc As Object
Dim objSession As Object
Dim objMailRTF As Object
Dim objAttach As Object
DDMMYY = Format(Now, “DDMMYY”)
ChDirNet ActiveWorkbook.Path
namefile = ActiveWorkbook.Path & “\WPR_BANG_WC_” & DDMMYY & “_NUD_DISP.xls”
Dim recip(2) As Variant
recip(0) = “clmsra@nn.co.uk”
recip(1) = “m.c@nn.co.uk”
Set objSession = CreateObject(“Notes.NotesSession”)
Set objMailDB = objSession.GETDATABASE(“”, “”)
If objMailDB.IsOpen = True Then
Else: objMailDB.OPENMAIL
End If
Set objMailDoc = objMailDB.CREATEDOCUMENT
With objMailDoc
.Form = “Memo”
.SendTo = “clmsra@nn.co.uk”
.Subject = "Weekly Performance Reports - " & DDMMYY
.Body = “Please find this week’s WPR.” & Chr(13) & _
“” & Chr(13) & _
“Thanks”
.SAVEMESSAGEONSEND = True
End With
Set objMailRTF = objMailDoc.CREATERICHTEXTITEM(“Attachment”)
Set objAttach = objMailRTF.EMBEDOBJECT(1454, “”, namefile, “Attachment”)
With objMailDoc
.PostedDate = Now()
.SEND 0, recip
End With
Set objMailDB = Nothing
Set objMailDoc = Nothing
Set objSession = Nothing
Set objMailRTF = Nothing
Set objAttach = Nothing
End Sub