Issue in sending mails from lotus notes by outlook mail users

HCL Domino Domino Forum
1

Hi,

We are using microsoft outlook for mailing. We are using one lotus notes aplication where we are submitting a request, it has to sendmail to approver . we are having id file but dont have mailfile. We are getting error “File doesnot exist”.

Is this due to lack of mail file in lotus notes. We have requested Admins to create mailfile but they are not willing to.

Could you please provide any alternative so that it can send mail directly with out using mailfile by modifing any configuration settings.

Many Thanks

2

Subject: issue in sending mails from lotus notes by outlook mail users

How is the mail being generated? By a script or formula? I don’t think you need a mailfile to be able to send an automated mail. Post the code

3

Subject: RE: issue in sending mails from lotus notes by outlook mail users

Dim ws As New NotesUIWorkspace Dim view As NotesView

Dim vwApprover As NotesView

Dim vwLookup As NotesView

Dim docProfile As NotesDocument

Dim docApprover As NotesDocument

Dim docMail As NotesDocument

Dim docTemp As NotesDocument

Dim rtitemBody As NotesRichTextItem

Dim asSendTo() As String

Dim iIndex As Integer

Dim sReason As String

Dim sSubject As String

Dim nnTo As NotesName

Dim nnRequestor As NotesName

Dim ndtSLA As notesDateTime



On Error Goto ErrHandler



'Set obj vars

Set view = db.GetView("(Profiles)")

Set vwApprover = db.GetView("(Approvals)")



'Get send to's

Select Case iIndicator

Case 1

	Set docApprover = vwApprover.GetDocumentByKey("Manager")

	Redim asSendTo(0)

	asSendTo(0) = doc.Manager(0)

	

Case 2

	'DCFM Approval		

	Set vwLookup = db.GetView("(DataCenter)")

	Set docApprover = vwApprover.GetDocumentByKey("DCFM")

	Set docProfile = vwLookup.GetDocumentByKey(uidoc.FieldGetText("Location"))

	Redim asSendTo(Ubound(docProfile.DCFM))

	For iIndex = 0 To Ubound(docProfile.DCFM)

		asSendTo(iIndex) = docProfile.DCFM(iIndex)

	Next

	

		

End Select



'Prompt the rejecter for a reject reason

	

'Create the mail doc and send it

Set docMail = db.CreateDocument()

Set rtitemBody = New NotesRichTextItem(docMail, "Body")

docMail.Form = "Memo"



'Check SendMail mode.  If 0, send all mails to developers instead of intended recipients

Set DocProfile = view.GetDocumentByKey("SendMail",True)

If DocProfile.Values(0) = "0" Then

	

	Set nnTo = New NotesName(asSendTo(0))

	rtitemBody.AppendText("To: " & nnTo.Abbreviated)

		

docMail.SendTo = asSendTo



	rtitemBody.Appendtext("This is an automated email request sent to you from the Approval Request Management Tool for a(n) " & Strconv(uidoc.FieldGetText("WaiverType"), SC_LowerCase) & " wavier. ")

rtitemBody.AddNewLine(2)





	End If



rtitemBody.AddNewLine(2)

Call rtitemBody.AppendText("Click here to view the request --> ")

Call rtitemBody.AppendDocLink(doc, "DCT Waiver Request")

	



docMail.Subject = "Test"	

docMail.SaveMessageOnSend = False



Call docMail.Send(False)



	

Exit sub

ErrHandler:

Messagebox "Cannot mark the request as approved or rejected: " + Error, MB_OK + MB_ICONSTOP, "Unexpected Error Condition"
4

Subject: RE: issue in sending mails from lotus notes by outlook mail users

What’s the sendto address - is it a Domino Directory username? If so, does the Person document in the directory have a forwarding address to send the email to, or does it have the name of a mailfile that doesn’t exist - I suspect the latter.

I think when you set up your users you’ll need to specify their email address for their Outlook account in the Directory.