Email file attachments using access

  • Thread starter Thread starter gp
  • Start date Start date
G

gp

Hi,


I have a main form in access with a textfield called quote
number.

My problem: I have a button on form which on click should

1.search for a .doc file ( with the name same as the text
field value - like 9878.doc )

2.Open outlook and attach this file to the email message

3. prompt user to enter email address?

I got the first part done, searching for a file in a
particular folder. Now how do I implement the other 2 steps

Thanks in advance
 
This is the complete Email code. I have seen quite a bit
of code for sending email. I have tried many of them. If
you are just sending an Access report you can use the
SendObject command. If attachments are files of any type
try the code below. The one below( I have it stored as a
function in a new module) has been the most reliable for me
with MS Outlook and Access 2000 and can send up to 5
attachments or none. Also I am able to pull from an open
form email address of the recipient, CC, BCC, and the
subject and text and file name of the attachment(s).
To reference data on an open form use
=[forms]![formname].[emailaddress]
=[forms]![formname].[subject]
=[forms]![formname].[attachment1]
ect.

Good Luck

Jim

Function SendEMail()
Dim strTo As String, strSubject As String, _
varBody As Variant, strCC As String, _
strBCC As String, strAttachment As String, _
strAttachment1 As String,strAttachment2 As String, _
strAttachment3 As String, strAttachment4 As String

strTo = "email address"
strSubject = "put subject here"
varBody = "put message for body here"
' Add more strattachments if needed and modify IF statement
' below
strAttachment = "attachment1"
strAttachment1 = "attachment2"
strAttachment2 = "attachment3"
strAttachment3 = "attachment4"
strAttachment4 = "attachment5"
'Start Outlook
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

'Logon
Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon

'Send a message
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
'Fill Out and Send Message
olMail.To = strTo
olMail.CC = strCC
olMail.BCC = strBCC
olMail.Subject = strSubject
olMail.Body = varBody
' Modify these statements if more attachmewnts are needed
If Len(strAttachment) <> 0 Then
olMail.Attachments.Add (strAttachment)
If Len(strAttachment1) <> 0 Then
olMail.Attachments.Add (strAttachment1)
If Len(strAttachment2) <> 0 Then
olMail.Attachments.Add (strAttachment2)
If Len(strAttachment3) <> 0 Then
olMail.Attachments.Add (strAttachment3)
If Len(strAttachment4) <> 0 Then
olMail.Attachments.Add (strAttachment4)
End If
End if
End if
End if
End If
olMail.Send

Set olNs = Nothing
Set olMail = Nothing
Set olApp = Nothing

End Function

Jim
 
Anyone know of how I can enter data with a click? This is a repetitive process, and I would like to be able to click on any of 30 or 40 fields and have it update that field by adding .5 without having to designate each field with a macro or a procedure. Make sense?
 
Back
Top