send attached document by email

[Newbie]

Try something like: (this is for Exchange Server)
NB You would pass a string with the path to the attachement:
AttachmentPath = "c:\filelocation\file.txt"

Sub SendMessage(Optional AttachmentPath)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim strMessage As String
strMailTo= "(e-mail address removed)"
strMailCc = "(e-mail address removed)"
strMessage = "File attached" 'whatever you want to appear in the message
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(strMailTo)
objOutlookRecip.Type = olTo

If Not Nz(strMailCc, "") = "" Then
' Add the CC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(strMailCc)
objOutlookRecip.Type = olCC
End If
' Set the Subject, Body, and Importance of the message.
.Subject = "Your subject message goes here"
.Body = strMessage

.Importance = olImportanceHigh 'High importance

' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Display

End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub

HTH

 

[Focus]

How can I send by email a document as an attached file
the "SendObject " command dose not support this action

thanks

 

[Newbie]

Sorry - I'm not sure if this works with Outlook Express - it assumes you
have the full Outlook package

 

[Guest]

Check Microsoft Knowledge Base Article 20998, "How to: Use
Automation to Send a Microsoft Outlook Message using
Access 2000"

 

[Focus]

thank fo the response
How it can work with outlook express?

 

[Tony Toews]

How it can work with outlook express?

There is some links on using email with OE at the Microsoft Access
Email FAQ http://www.granite.ab.ca/access/email.htm

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm