• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1216
  • Last Modified:

Create an email form

Hi,

Im trying to create an email form in my cutsomer contacts database.  The form includes a [To] field, a [message] field and a group of tick boxes which will allow the user to select PDF files to attach to the email.  I have a few question regarding this:

1) Does the form need to be linked to a table?  I don't really need to save the emails especially if i use outlook to send the email as they will be stored there in the sent folder.

2)My [Message] field on the form is a text box set to rich text format, however, how do i enable the return key so that it doesn't move to the next field but adds a carriage return instead?

3)This is the main one - how would i email from this form?  I have used email in access before, but mainly for inhouse emails/notifications.  how would i attach the checked PDF files to the email?

I know this is a lot to ask, and i'm not sure if it can be done at all.  I hope someone can point me in the right direction and i look forward to hearing from you.

Tom
0
d10u4v
Asked:
d10u4v
  • 2
1 Solution
 
Jeffrey CoachmanMIS LiasonCommented:
d10u4v,

I can get this to work for Outlook 2003,

But the object model for Outlook changed in 2007.

I will try to test this at work tomorrow with Outlook 2007

JeffCoachman
0
 
d10u4vAuthor Commented:
HI,

I have been working on this myself and have been able to put together this code which works fine for check boxes on the form, but i am considering moving over to a list box which will be populated from a table which will store the full path and a description of the PDF file.  I'm unsure as to how to add the selected item from the list box to the .Attachements.Add of the code...

 
Private Sub cmdSend_email_Click()
 
        Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
            
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .to = Me.email_address
            .Subject = Me.mess_subject
            .HTMLBody = Me.mess_text
            Dim ctrl As Control
For Each ctrl In Me.Controls
 If TypeOf ctrl Is CheckBox Then
        If ctrl.Value = -1 Then
               .Attachments.Add (ctrl.Tag)
        End If
 End If
Next
 
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
            Resume Error_out
Error_out:
End Sub

Open in new window

0
 
Jeffrey CoachmanMIS LiasonCommented:
d10u4v,

To select/Add Multiple attachments from a list box, use code similar to this:

http://www.tek-tips.com/viewthread.cfm?qid=1166066&page=1

JeffCoachman
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now