Results 1 to 5 of 5
  1. #1
    Chronus13 is offline Novice
    Windows 10 Access 2016
    Join Date
    Nov 2020
    Posts
    24

    Possible to have a fillable form with email

    Hello,
    OK my first post, so please bare with me. I am thinking of creating a form that I would like to have a Modal form associated with it. On the Modal form i would like to have several fillable text boxes so I can place emails into. The idea is to have my original form create the Modal form after completion. The Modal form would then send a list of emails, that I input, out including the original form. I am learning as I go and not sure if this is even possible. Any insight and suggestions would be appreciated.

    thanks,
    Wes

  2. #2
    kd2017 is offline Well, I tried at least.
    Windows 10 Access 2016
    Join Date
    Jul 2017
    Posts
    1,142
    Is it even possible? Should be quite simple.

    https://www.google.com/search?q=access+docmd.openform
    https://www.google.com/search?q=access+modal+form
    https://www.google.com/search?q=access+vba+email

    I'm sorry I can't be more helpful without more specific questions.

  3. #3
    ranman256's Avatar
    ranman256 is offline VIP
    Windows Vista Access 2010 32bit
    Join Date
    Apr 2014
    Location
    Kentucky
    Posts
    9,524
    i would hope you have a table to store 'names/clients/accociates' and their emails. a form for that.
    the other form, is to make the email details; who,subject, body, etc.
    a listbox on this form would have the list of names/emails, youd select 1 or filter the list (by group?)

    the query of the report uses the listbox to pull the info for just that 1 person.

    fill in the text boxes, select 1 email from listbox , click Send btn.

    'email the rpt
    docmd.SendObject acSendReport ,txtReport,acFormatPDF, vTo,,,txtSubj,txtBody
    or
    docmd.SendObject acSendQuery , "qsRptQry",acFormatXLS, vTo,,,txtSubj,txtBody


    i have this:
    in addition, i have a checkbox : chkALL, to send this to everyone in the list

    the code is then:
    Code:
    sub btnSend_click()
    dim vTo
    dim i as integer
    dim sToList as string
    
    
    if chkALL then
     for i = 0 to lstBox.listcount -1
        vTo = lstBox.itemdata(i)    'get next email in listbox
        lstBox = vTo        'set the listbox to this item
    
           'email the rpt
        docmd.SendObject acSendQuery , "qsRptQry",acFormatXLS, vTo,,,txtSubj,txtBody
     
     next
    
    else
        docmd.SendObject acSendQuery , "qsRptQry",acFormatXLS, vTo,,,txtSubj,txtBody
    endif
    end sub

  4. #4
    Chronus13 is offline Novice
    Windows 10 Access 2016
    Join Date
    Nov 2020
    Posts
    24
    I appreciate the reply. It does help, because sometimes just putting in the right words in a google search can be a headache to make sure it looks exactly for what you want.

  5. #5
    Chronus13 is offline Novice
    Windows 10 Access 2016
    Join Date
    Nov 2020
    Posts
    24
    ranman256, thanks for the write-up. I will give it a try. So I am assuming that i would have to have a table with emails already instead of being able to just input them one by one as needed?

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Merging Data from Access to a fillable PDF
    By jeffhanner10@gmail.com in forum Access
    Replies: 1
    Last Post: 09-18-2019, 06:06 PM
  2. Fillable form mask
    By Daniel Brandtner in forum Forms
    Replies: 4
    Last Post: 04-16-2015, 02:06 AM
  3. Replies: 1
    Last Post: 08-14-2014, 04:18 PM
  4. Replies: 3
    Last Post: 02-27-2013, 06:11 PM
  5. Export Data to predesigned PDF Fillable Form
    By Bisquit in forum Import/Export Data
    Replies: 1
    Last Post: 11-28-2012, 02:49 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums