Excel: Using Workgroup Extensions for Microsoft Excel

The information in this article applies to:

• Microsoft Excel for Windows, versions 4.0 and 4.0a

SUMMARY

The following macro demonstrates the steps necessary to send electronic mail from a Microsoft Excel macro using Workgroup Extensions for Microsoft Excel. The purpose of this macro is to send a mail message to a person with the email alias "JillDoe" and to attach the ARCHES.BMP file.

NOTE: Before you run the macro, you must load the file XLMAPI.XLL.

The macro is as follows

          A
   1  auto_email
   2  =MAIL.LOGON(,"CoolPass",FALSE)
   3  =MAIL.NEW.MESSAGE()
   4  =SET.MAIL.MESSAGE(7,"JillDoe"))
   5  =SET.MAIL.MESSAGE(1,"My Test Message")
   6  =SET.MAIL.MESSAGE(8,"c:\windows\arches.bmp")
   7  =SET.MAIL.RECIPIENT(GET.MAIL.MESSAGE(9)+1,"JoUser",,2)
   8  =MAIL.SEND.MESSAGE()
   9  =MAIL.LOGOFF()
   10 =RETURN()

• Line 2 of the macro connects to mail using the password CoolPass. Note here that you MUST use the MAIL.LOGON() command even if you are currently logged into mail. MAIL.LOGON() establishes a mail session for this instance of Microsoft Excel only.
• Line 3 creates a new, blank mail message.
• Lines 4-6 use the SET.MAIL.MESSAGE() command to fill in the header information for the mail message. In each line, the first argument specifies which part of the mail header you are modifying (7 is recipient; 1 is subject text; 8 is attachment path and filename).
• Line 7 uses the GET.MAIL.RECIPIENT() command to add JoUser to the cc (carbon copy) line of the mail message. The GET.MAIL.MESSAGE() command is used to get the total number of recipients and adding 1 to it (which creates "room" for the person being added to the cc line).
• Line 9 sends the email message.
• Line 11 disconnects mail for this instance of Microsoft Excel.

MORE INFORMATION

For more information on Workgroup Extensions for Microsoft Excel, or to obtain the XLMAPI.XLL file, download the file MAPIDEMO.EXE from the Microsoft Download Service at (425) 936-MSDL.

REFERENCES

Workgroup Extensions for Microsoft Excel