FredixBlog

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.