Send Form Data in Email

[DSProductionz]

Hello,

I am looking for information as to how to send form data in an email.

For example, I'd like an email to be sent when a new record is added. I'd like to include the information entered into the form.



I'd like another option that when a check box is selected and marks the record as complete, an email is sent with all of the complete information on the forum.

I'd like to sent it straight in an email body rather than pdf.

I understand this can be done with VBA but I am fairly new. Can someone point me in the direction of some information to help?

Thank you,
Mark

[ranman256]

you can make a report based on the form, or send an image of the form.
make a button, to run macro:

docmd.SendObject acSendForm ,"frmMyForm",acFormatPDF,sTo,,,sSubj,sBody

[DSProductionz]

Thank you for the response. I do not want to use an image. I would just like to compile the fields from the form into the email body as text.

I have been trying to get this to work, but being new to the coding side, I am sort of lost as to what to do?

Dim stSendTo As String
Dim stTransferDate As String
Dim objMailItem As Outlook.MailItem
Dim olkApp As Outlook.Application
Dim olkNameSpace As Outlook.NameSpace

'Send email
Set olkApp = New Outlook.Application
Set olkNameSpace = olkApp.GetNamespace(""MAPI"")
Set objMailItem = olkApp.CreateItem(olMailItem)
stTransferDate = Format(Now(), ""mm-dd-yyyy"")
stSendTo = "examplee@mailaddress.co.uk"
With objMailItem
.To = stSendTo
.Recipients.ResolveAll
.Subject = ""Induction: A new record has been added. "" &
stTransferDate
.Body = ""A new record has been added to the Induction database.""
.Send 'or Display
.Save
.Close (olSave)
End With




Any information that you can share, would be helpful.

Thanks,

[ranman256]

this is what PDFs are for. No code needed.

[pbaldy]

Build a variable and use it for the body:

strBody = "Dear " & Me.NameTextbox & vbCrLf & "Blah blah" & Me.SomeOtherTextbox

vbCrLf adds a line feed.

[DSProductionz]

Build a variable and use it for the body:

strBody = "Dear " & Me.NameTextbox & vbCrLf & "Blah blah" & Me.SomeOtherTextbox

vbCrLf adds a line feed.

Can you please explain this a bit better?

Do I assigned this code to an "On Insert" event or something? Or a button?

What if I want to include all fields for a particular record?

The following are the fields from my main table called InductionsNEW:

InductionID
DateEmployeed
AddedBy
FirstName
Surname
EmployeeNo
Department
DateStarted
InductionBy
HSEBy
TrainingBy
QualityBy
SafetyItems
TrainingItems
CommunicationItems
QualityItems
HRItems
IndType
DateCompleted
Approved
Comments

I would like to send an email after a new record has been inserted into the database.

So the email should have all the fields listed above included and be sent to 4 particular people from Outlook.

I am very new to VBA, so I am not sure really how to start this or approach this?

Can you provide a few steps for me to follow or some information that can guide me in this?

If it is easier to use a PDF, I wouldn't mind taking that route, but I would still need the PDF to be limited to the record that has been added to the database.

Thank you.

[DSProductionz]

this is what PDFs are for. No code needed.

Would you be able to explain the steps to get the output I need?

See my message in the next post to pbaldy.

Thank you.

[pbaldy]

Can you please explain this a bit better?

Do I assigned this code to an "On Insert" event or something? Or a button?

What if I want to include all fields for a particular record?

No, I'm saying to replace this line:

.Body = ""A new record has been added to the Induction database."" 

with

Dim strBody As String
strBody = "Dear " & Me.NameTextbox & vbCrLf & "Blah blah" & Me.SomeOtherTextbox
.Body = strBody

You can build strBody with pretty much as much text and as many fields from the form as you want.

[DSProductionz]

I am not sure if I am missing something here? Obviously being new to this side of things, I have no idea where to start?

I see the code, but I am not sure what to do with it?

Any advice please?

Thanks.

[pbaldy]

It would go here, perhaps behind a button to test:

http://www.baldyweb.com/FirstVBA.htm