A collection of VBA functions for sending email through IBM Lotus Notes.
When looking for more complete functions for sending e-mail through Lotus Notes, i realized that there is a lot of information mismatched and loose on the internet. I found many pieces, but nothing too complex. So I decided to program my own module with functions that not only meet me, but also meet those who seek them.
Feel free to use it in the best way possible and contribute to what you discover new. You can also enhance the functions present here.
All tests were done (and worked) in the following versions:
Probably the functions also work in other versions or just need a few changes.
Dim emailsendto() as String
Dim index as Integer
index = 2
ReDim emailsendto(index)
emailsendto(0) = "me@email.com"
emailsendto(1) = "example@example.com"
SendEmail "Hello", "Good Morning!", emailsendto
SendEmailString "Hello", "Good Morning!", "me@email.com,example@example.com"
SendEmailStringCC "Hello", "Good Morning!", "me@email.com,example@example.com", "emailcc@copyto.com", "emailbcc@blindcopyto.com"
SendEmailStringCCAttach "Hello", "Good Morning!", "me@email.com,example@example.com", "emailcc@copyto.com", "emailbcc@blindcopyto.com", "C:\folder1\folder2\file.txt"
SendEmailStringHTML "Hello", "<html><body><font size=""+5"" color=""red"">Good Morning!</font></body></html>", _
"me@email.com,example@example.com", "emailcc@copyto.com", "emailbcc@blindcopyto.com", "C:\folder1\folder2\file.txt", True, True, False
Note: SendEmailStringHTML function depends on the EncodeFile function (last function on the module). This one requires Microsoft XML, v6.0 (or v3.0) reference.