VB Code to sendobject

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

So, I've realized that coding command buttons in VB gives you more control.
To that end, I'm trying to set up a VB command button that will populate the
Subject line with data from an autonumber field value that is displayed on
the form where the new button will be. I can get everything to work with
this except that the dynamic sujbect line doesn't work out. Any suggestions
would be appreciated (code is below sig line).


--
- Mkauley




Private Sub Command24_Click()
On Error Resume Next

Dim strMsgBody As String
Dim intSeeOutlook As Integer
Dim intSubjectNumber As String

intSubjectNumber = "Order No " = [Forms]![frmOrderDetals]![OrderNo]


' Send query in RTF format.
' Open Outlook window if intSeeOutlook is True.
' Provide Subject title bar and message text.
DoCmd.SendObject acSendReport, "rptCustomers", acFormatRTF, _
"(e-mail address removed)", , , intSubjectRAD, _
"If you have any problems with this report please contact
me.", intSeeOutlook

End Sub
 
Back
Top