Editable E-mail attachment

[MayaMana]

Hey I have been searching the forms and other places online for the past few weeks and I am still stumped.

I am trying to find a way to:
1) Send an e-mail of the current record displayed on the form/report.
2) Have the recipient of the e-mail be able to edit/add to the document and send it back.

Right now I am able to send the document as an attach either through pdf. or rtf. With the .pdf my issue is:The recipient is unable to edit the pdf. With the .rtf my issues are: The picture for the header (company logo) doesn't show up, also editing/adding to the document isn't easy. Some of the places where the recipient would need to enter in data shows up as a blank spot where they would have to add a text box to do so instead of being able to just click and type.

I have been trying to look into the Word Mail Merge function but I have been unsuccessful in finding a way to implement it into the form on access to get it to work. If you have any questions just ask.

Any help/suggestions/advice is greatly appreciated. Thanks in advance.

 

[Trevor G]

I would look to use Excel for this you can create a workbook that looks like your access form, then fill it with the data from the form, then send the workbook to who you need to and they can fill it out and return to you. You can then populate your database with the returned information.

To send your data to the Excel workbook you could use something like this:

Sub sendForAction()
'**************************************************
'You need to set the reference to Excel
'In VBA (Alt + F11) select Tools menu and References
'Search down for Microsoft Excel
'**************************************************
Dim wkbk As Excel.Application
Set wkbk = CreateObject("Excel.Application")
With wkbk
.Workbooks.Open "L:\Excel VBA\SurveyForm.xls"
.Visible = True
'Then your sheet name
.Sheet(1).Select
'Next your range
.Range("B2") = textbox1Name
.Range("D4") = textbox2Name

End With
wkbk.ActiveWorkbook.Close True
Set wkbk = Nothing

'**************************************************
'You need to set the reference to Outlook
'In VBA (Alt + F11) select Tools menu and References
'Search down for Microsoft Outlook
'**************************************************
Dim olApp As Outlook.Application
Dim olMail As MailItem
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail

.To = Range("a1")
.Subject = "File"
.Body = "Please find the file attached"
.Attachments.Add "L:\Excel VBA\SurveyForm.xls"
.Display 'change to send once your have tested this
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub

 

[MayaMana]

I hadn't thought of that. I will check it out and get back you. Thanks
::edit::
I can't find a way to format that, to look like a professional document that can be filed. Right now it is being edited in word and sent out that way. I am creating a database to make this process more streamline.