DoCmd Statement Email access

[mborg]

is it at all possible to control the message text in a DoCmd statement? at least have line breaks in the messages?

For instance:
"Dear Name,

Please see attached for your latest balance.

Regards,
Finance"

 

[Logit]

.
.
I've tried several different way to post the code here without the FORUM removing the HTML mark ups.

Here is a link to download the file :

https://www.amazon.com/clouddrive/s...ZXjoZqjaz4GaIGIyon?ref_=cd_ph_share_link_copy

 

[xenou]

What kind of docmd statement?

Note that you can generally post html tags if you use the php button to enclose the code (available in the advanced editor or otherwise just the same as a code box but with PHP instead of CODE)

Example:

<b>stuff</b>

 

[Logit]

Thanks xenou . Didn't give any thought to the PHP.

 

[mborg]

What kind of docmd statement?

Note that you can generally post html tags if you use the php button to enclose the code (available in the advanced editor or otherwise just the same as a code box but with PHP instead of CODE)

Example:

stuff

Thanks. Here is the statement:
Private Sub Mail_Reimbursement_Summary_Click()
On Error GoTo Err_Mail_Reimbursement_Summary_Click
Dim stDocName As String
stDocName = "Tuition Reimbursement Summary Report"
DoCmd.SendObject acReport, stDocName, , , , , "Reimbursement Summary",

Exit_Mail_Reimbursement_Summary_Click:
Exit Sub
Err_Mail_Reimbursement_Summary_Click:
MsgBox Err.Description
Resume Exit_Mail_Reimbursement_Summary_Click

End Sub

i want to be able to add in a somewhat clean formatted email in the message text, but it does not carryover well...

 

[xenou]

I would guess that a simple text message is about all you can do here, one without line breaks or html in it.

 

[mborg]

I would guess that a simple text message is about all you can do here, one without line breaks or html in it.

Hm, ok. I'll discuss with the coordinator who will use the form.

 

[Marbles]

I use this code, though I can't remember where I found it. You should be able to adjust from mine.

Private Sub SendToE_Click()
On Error GoTo Err_SendToE_Click

    Dim stDocName As String
    Dim stAddE As String
    stDocName = "NewIndividual"
    stAddE = Me.EmailAddress
    tryTitle = Me.Title
    tryFirst = Me.FirstName
    tryLast = Me.LastName
    
    DoCmd.OpenReport stDocName, acPreview, "IndividualPrintout"
    DoCmd.SendObject acSendReport, _
    stDocName, acFormatPDF, stAddE, , , _
    "Automatic Booking Confirmation", _
    "Dear " & tryTitle & " " & tryLast & Chr(13) & Chr(13) & "Thank you for your booking, if the attachment details are correct, could you please confirm by replying to this email" & Chr(13) & Chr(13) & "Testing", _
    False


Exit_SendToE_Click:
    Exit Sub

Err_SendToE_Click:
    MsgBox Err.Description
    Resume Exit_SendToE_Click
    
End Sub

 

[xenou]

Thanks marbles.
I'm so used to this stuff that I'd assumed the char(13) type of stuff had been tried already - but if not that would be an obvious attempt.

For instance,
"hello" & char(13) & " world"
or
"hello" & char(13) & char(10) & " world"
or probably equally effective
"hello" & vbNewLine & " world"

 

[HiTechCoach]

There is a VBA constant called vbCRLF for CR and LF (char(13) & char(10) )

You can use:

"hello" & vbCRLF & " world"