Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Can an Outlook App work with cc:mail?

Status
Not open for further replies.

mb22

Programmer
Sep 4, 2002
258
US
I have an app that uses Outlook email. It works fine when installed on PCs runningn Outlook.

My question is should it work when installed on PCs running Lotus Notes cc:Mail? Shouldn't the Outlook DLL (outlctl.dll) and Outlook object library (msoutl9.olb) references be sufficient to make it connect to the local email system?

This is kind of how the call is made in the program, and the corresponding subroutine!

Just want to know if it can be done... before trying to install on a cc:Mail machine!

'-- CALL THE EMAIL PROCESS AND SEND IT THE USER SPECIFIED/DEFAULT PARAMETERS

SendMyReport SendTo, SendCc, SendSubject, SendMessage, G_PDF_FILE

Private Sub SendMyReport(Recipient As String, CC As String, Subject As String, Body As String, Attach As String)
On Error GoTo ErrHandler
Dim objOL As New Outlook.Application
Dim objMail As MailItem

'-- CREATE A NEW MAIL ITEM
Set objMail = objOL.CreateItem(olMailItem)

With objMail
'-- SET THE RECIPIENTS
.To = IIf(Recipient <> &quot;&quot;, Recipient, &quot;&quot;)
'-- SET THE CC
.CC = IIf(CC <> &quot;&quot;, CC, &quot;&quot;)
'-- SET THE SUBJECT
.Subject = IIf(Subject <> &quot;&quot;, Subject, &quot;&quot;)
'-- SET THE BODY
.Body = IIf(Body <> &quot;&quot;, Body, &quot;&quot;)
'-- CHECK FOR ATTACHMENT
If Attach <> vbNullString Then
'-- ADD ATTACHMENT
.Attachments.Add Attach
End If
'-- SEND IT
.Send
End With

'-- CLEAN UP MEMORY
Set objMail = Nothing
Set objOL = Nothing


ErrHandler:
'MsgBox &quot;Error &quot; & Err.Number & &quot; &quot; & CStr(Err.Description) & &quot; &quot; & CStr(Err.Source)
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top