I have a question,
I used sendobject to send e-mail, but when I checked the e-mail, the e-mail does not show the mail I sent from MS Access. I already wait for a long time. Is the mail deleted itself?
This is the last time I'm going to answer the same question twice for you.
Public Function SendNotesMail(strTo As String, strSubject As String, strBody As String)
Dim doc As Object
Dim oSess As Object
Dim oDB As Object
Set oSess = CreateObject("Notes.NotesSession")
Set oDB = oSess.GETDATABASE("", "")
Set doc = oDB.CREATEDOCUMENT
doc.sendto = strTo
doc.subject = strSubject
doc.body = strBody & vbCrLf & vbCrLf
I see that. But, I want to transfer the file from MS Access to Lotus Notes directly, like sendobject acreport, "Approval", acformatRTF,.............
The code needs to use the path name eg. g:\ta.exe
So, do we need to create the file first and then save it in the directoy. It's too trouble.
How to solve? I don't want to save the file in the directory.
Dim strTo As String 'The sendee(s) Needs to be fully qualified address. Other names seperated by commas
Dim strSubject As String 'The subject of the mail. Can be "" if no subject needed
Dim strBody As String 'The main body text of the message. Use "" if no text is to be included.
Dim FirstFile As String 'If you are embedding files then this is the first one. Use "" if no files are to be sent
Dim SecondFile As String 'Add as many extra files as is needed, seperated by commas.
Dim ThirdFile As String 'And so on.
strTo = "Alan@hotmail.com"
strSubject = "Test Message"
strBody = "This is a test"
strBody = strBody & vbCrLf & "Just add new lines by concatenating " & vbCrLf & " "
////// How do I change this code, because I do NOT want to create the file and store it in the p: drive, I want to transfer the file directly from MS Access to Lotus Notes//////////////
FirstFile = "p:\Approval Amount.rtf"
SecondFile = ""
ThirdFile = ""