E-mailing from Access 97 2

Guest_imported · Aug 17, 1999

When I used to use Access 2.0 with cc:Mail, I could automatically send select queries as Excel spreadsheets. 
Access would launch cc:Mail, ask for my password and send the e-mail. Now that I'm using Access 97 and 
Lotus Notes, I can no longer do this. Is there a special trick or is it just not possible anymore?

RonRegan · Aug 23, 1999

I'm not sure if it doesnt work of if I couldnt get it to work. If you look in help for Lotus or cc mail, there are instructions on using the dll for Lotus, instead of the dll for Outlook. 
 
I tried and didnt get it to work.

bitbrain · Aug 23, 1999

You should be able to use the MSMAPI control. We have Lotus Notes here and I wrote a VB application that sends e-mail via MSMAPI. Let me know if you want more detail.

Guest_imported · Aug 23, 1999

bitbrain, 
 
Yes, I would like more detail, please. Also, do I have to be using MS Exchange to use the MSMAPI control? 
 
Thanks. 
 
Bob

bitbrain · Aug 23, 1999

You don't need MS Exchange as far as I know. 
 
I think there is a middle layer that needs to be set-up for the MS to Lotus link to work. Before getting involved in the VB stuff, try sending a document from a MS product such as Word or Excel. From the File menu, chose Send. See how far you get. In the meantime... 
 
Make sure you have the MAPI OCX. From Form design, click the "More Controls" button. Scroll down and see if you have "Microsoft MAPI Message Control Version 5.0" & "Microsoft MAPI Session Control Version 5.0" If you don't see them, look for MSMAPI32.OCX on your system. If you find it, register it via Tools / Active X Controls / Register... If you don't find them, see if you can get them

The controls (two) are invisible. Add them to your form. Following are code samples that I have used. Modify them for your needs. MS Help has more info... 
 
Private Sub FileSizeWarning(strFileName As String, iMaxRecs As Variant) 
 
' This routine added 1/22/1999 
' The purpose of this routine is to notify IS when the number of records in the control file 
' approaches the maximum. IS will need to clean the file out by archiving old records. 
' This routine attempts to send e-mail messages to individuals in IS. If the mail functions 
' fail for any reason, a message box is displayed instructing the user to notify IS. 
 
mbSendMode = False ' use TRUE for testing & FALSE for production. 
 
mbMsgSent = False 
mstrSubj = "WARNING! Check Bill Editor File Size" 
mstrText = "System generated message from Retro Bill Editor to IS support team:" _ 
& CRLF & CRLF _ 
& "The number of records in control file: " & strFileName _ 
& " is " & iMaxRecs & " and the maximum is " _ 
& CONTROL_REC_MAX & ", please take appriopriate action" _ 
& " (i.e. use menu option Administration / Clean up Bill File)." _ 
& CRLF & CRLF _ 
& "This message automatically generated by the Retro" _ 
& " Bill Editor Application. File size limits set in frmOpenDlg.LoadPlanList." 
 
 
On Error Resume Next 
 
' Establish the mail session using the MAPI Session control 
MAPISess.LogonUI = False ' turn user interface off 
MAPISess.UserName = "Commercial Lines" ' set the MS Exchange type 
MAPISess.SignOn 
 
If Err <> 0 Then 
GoTo MailError 
End If 
 
' Set-up & send e-mail messages using the MAPI message control 
 
MAPIMess.SessionID = MAPISess.SessionID ' link the message to the session 
 
' separate messages are sent to the IS team members. If NONE of them get through 
' for any reason, a message box is displayed in the error routine. 
' This technicque of sending separate messages used because of the limitations in the 
' MAPI controls. The receipients must be defined to the user's personal address book. 
' It is quite possible that the personal address book will not be populated. 
 
Call SendMessage(IS_SUPERVISOR) 
Call SendMessage(IS_ADMIN1) 
Call SendMessage(IS_ADMIN2) 
Call SendMessage(IS_ADMIN3) 
 
MAPISess.SignOff 
 
If mbMsgSent = False Then 
GoTo MailError 
End If 
 
Exit Sub 
 
MailError: 
 
MsgBox "Warning! The number of control records is " & iMaxRecs & _ 
", and is close to reaching the maximum of " & CONTROL_REC_MAX _ 
& ". Please notify systems support.", _ 
vbExclamation, "Retro Bill Editor" 
 
End Sub 
 
Private Sub SendMessage(strRecip As String) 
 
MAPIMess.MsgIndex = -1 ' new message 
MAPIMess.RecipType = mapToList ' receipient type is "To" 
 
MAPIMess.RecipDisplayName = strRecip ' e-mail receipient 
 
MAPIMess.MsgSubject = mstrSubj 
MAPIMess.MsgNoteText = mstrText 
 
MAPIMess.Send (mbSendMode) 
 
If Err = 0 Then 
mbMsgSent = True 
End If 
 
End Sub

Guest_imported · Aug 24, 1999

Hey bitbrain...you really know your stuff!!! I tried to send a document from Word and got the message "Cannot load Extended MAPI library mapi32.dll". Also, I did a search for MSMAPI32.OCX and came up with zilch. How can I get these files? Were they supposed to have been installed already? My ISD has a habit of installing the bare bones software. 
 
TIA, 
 
Bob

bitbrain · Aug 24, 1999

Thanks. 
 
Check out

http://www.microsoft.com/Exchange/55/downloads/WMS.htm

for the dll download.

http://www.microsoft.com/msdownload/vstudio/sp97/vb.asp

might have the ocx

Car57 · Jun 12, 2000

Found this at access.superexpert: Hope it helps! You must use OLE Automation and be somewhat familiar with LotusScript's objects. I wrote the following code to create an attachment in a LotusNotes email based on a file path that is passed. Sub CreateNotesEmail(fl As String, subj As String) On Error GoTo errln Dim s As Object Dim db As Object Dim doc As Object Dim RTItem As Object Dim obj As Object Dim w As Object Dim curuidoc As Object Set s = CreateObject("Notes.Notessession&quot

Set db = s.GETDATABASE("", "&quot

Call db.OPENMAIL Set doc = db.CREATEDOCUMENT Call doc.REPLACEITEMVALUE("Subject", subj) 'Call doc.REPLACEITEMVALUE("Body", "Message&quot

Set RTItem = doc.CREATERICHTEXTITEM("Body&quot

Set obj = RTItem.EMBEDOBJECT(1454, "", fl, "Statement&quot

On Error GoTo errw Set w = CreateObject("Notes.Notesuiworkspace&quot

Set curuidoc = w.EDITDOCUMENT(True, doc, False) AppActivate ("Lotus Notes&quot

On Error GoTo errln exln: Set w = Nothing Set s = Nothing Exit Sub errw: Call doc.Save(True, True) MsgBox ("The attachment has been created in a new LOTUS NOTES email and saved as a draft.&quot

GoTo exln errln: MsgBox ("Error " & Err.Number & ": " & Err.Description) Resume exln End Sub

DougP · Jun 13, 2000

PutnamUser, You have first hand evidence of the Microsoft Lawsuit. If you buy all Microsoft products from Access to Exchange and Outlook, then e-mailing from Access is a snap. Its one line of code. If you use someone else's products for part of the equation. It doesn’t work. Good Luck DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

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!

E-mailing from Access 97 2

Guest_imported

New member

RonRegan

Programmer

bitbrain

Programmer

Guest_imported

New member

bitbrain

Programmer

Guest_imported

New member

bitbrain

Programmer

Car57

Programmer

DougP

MIS

Similar threads

Part and Inventory Search

Sponsor