Email using Lotus Server

[tppradeep18]

I plan to create an application that would send email to users within the organization. My organization is using Lotus server as the messaging system. How can I send mail from VB using lotus notes. All the users have lotus notes client intalled on their machine. I do not want to open this client to send mail instead I want to send it through VB directly. IS THERE ANY WAY IT CAN BE DONE?

[Red Thread]

Hi there !

I'm wrestling with the same problem here. I see there was no response to your question so... did you find the solution by yourself ?

If so, can you please say how to solved it ?

Thx Mario

[Red Thread]

ok, but i noticed you haven't a email adress in your personal settings so... here's mine.

[email protected]

I'm waiting for your call !

Greetings, Mario

[Comora]

There is no way to send mail(Lotus Notes) over VB directly(at least as far as I know), since Notes(and it's servers) are using their own way to transfer mails, which is different from MS protocols. You will still have to send it over the Notes Client.
If you need the code to generate emails with Notes over VB let me know and I will post it.
Cheers

[Red Thread]

post the code anyway comora

IDS mail (http://www.intuitive-data.com) can make this quite easy.

[Comora]

I still had problems with this code though. For some reason the mails generated could not be send. Maybe somebody has any ideas :-)

Public Sub send_lotus(subject As String, attachment As String, recipient As String, bodytext As String, saveit As Boolean)

Dim maildb As Object
Dim username As String
Dim maildbname As String
Dim maildoc As Object
Dim attachme As Object
Dim session As Object
Dim embedobj As Object

Set session = CreateObject("Notes.Notessession")
username = session.username
maildbname = Left$(username, 1) & Right$(username, Len(username) - InStr(1, username, "")) & ".nsf"
Set maildb = session.getdatabase("", "maildbname")
If maildb.isopen = True Then
Else
maildb.openmail
End If

Set maildoc = maildb.createdocument
maildoc.Form = "Memo"
maildoc.sendto = recipient
maildoc.subject = subject
maildoc.body = bodytext
maildoc.savemessageonsend = saveit
If attachment <> "" Then
Set attachme = maildoc.creatrichtextitem("Attachment")
Set embedobj = attachme.embedobject(1454, "", attachment, "Attachment")
End If
maildoc.send 0, recipient
End Sub

[Red Thread]

Well, for those who are still interested...

Thx to tppradeep18 (great tip/code) i've found the solution. It IS possible (quite simple infact...) to send e-mail via lotus. Without any third-party software.
Inclusive attachements, multiple reciever, notify, etc...

I've your interested, pls mail me.

[email protected]

[Comora]

Hi again,
actually the code I posted earlier works fine. I just forgot something. You will have to add which kind gateway it used.
When I added @SMTP to the email-address it worked.
Try it out.