How can I e-mail a file from Microsoft Access?
Posted by: fredometro on 
Apr 22nd, 2004 | 
Filed under: MS-Access
Hello Anna!
Thanks to ask your question at my website. I am pleased to answer to your question:
How can I e-mail a file from Microsoft Access to other people?
Here is a simple function which sends an email with an attachment.
Public Function MailWithAttachment(Recipient as String, Subject as String, Body as String, Attachment as String)
‘ Start Outlook.
‘ If it is already running, you’ll use the same instance…
Dim olApp As Outlook.Application
Set olApp = CreateObject(”Outlook.Application”)
‘ Logon. Doesn’t hurt if you are already running and logged on…
Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace(”MAPI”)
olNs.Logon
‘ Send a message to your new contact.
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
‘ Fill out & send message…
olMail.To = Recipient
olMail.Subject = Subject
olMail.Body = Body
olMail.Attachments.Add Attachment
olMail.Send
‘ Clean up…
‘MsgBox “All done…”, vbMsgBoxSetForeground
olNs.Logoff
Set olNs = Nothing
Set olMail = Nothing
Set olAppt = Nothing
Set olItem = Nothing
Set olApp = Nothing
End Function
Just paste this function in a module. Make sure you have a reference to ‘Microsoft Outlook 9.0 Object library’ checked in the
‘Tools/References’ menu, reachable from the module.
Test the function from the debug window by typing from instance:
?MailWithAttachment(”mailbox@domainname.com”,”YourSubjectTextHere”,”YourBodyTextHere”,”c:\\MyFile.txt”)
The parameters are easy:
Recipient = email address to sent your mail TO
Subject = Subject of your message
Body = Body text of your message
Attachment = filename for the attachment
Once the function is finished, you should have an email in your Outlook outbox, ready to be sent next time you check your email.
Random Posts
Comments (16) 