Despatch Notification

[Blings]

Morning all,

I'm trying to create a button that will on the onClick open up a new Outlook email with subject of Despatch | SO " & [SalesOrderNumber] and with a body of "Despatch Notification".

Please can someone suggest code?

Private Sub cmdEmailProduction_Click()10        On Error GoTo cmdEmailProduction_Click_Error
20            If Me.Dirty Then Me.Dirty = False
'30      MsgBox "A Copy of the Production Order was saved to the Production Order Folder", vbInformation
      Dim strSQL As String
      Dim OutApp As Object
      Dim OutMail As Object
      Dim strToSQL As String
      Dim strSalesOrderNumber As String
     
      
      Dim strSubject As String
      Dim strMessage As String
      Dim strReportname As String
      Dim strPath As String


35    strSalesOrderNumber = Me.SalesOrderNumber
40    strToSQL = Me.txtEmail
50    strSubject = "Despatch | SO " & [SalesOrderNumber] & ""
60    strReportname = "rptSalesOrderProduction"
70    strPath = "\\LUCREZIA-NOBLE\Database\ProductionOrders\" & "Production Order " & strSalesOrderNumber & ".pdf"




80    DoCmd.OpenReport strReportname, acPreview, "", "[SalesOrderNumber]=[Forms]![frmSalesOrders].[Form]![SalesOrderNumber]"
90    DoCmd.OutputTo acOutputReport, strReportname, acFormatPDF, "\\LUCREZIA-NOBLE\Database\ProductionOrders\" & "Production Order " & strSalesOrderNumber & ".pdf"




100   strMessage = "Despatch Notification."


110   Set OutApp = CreateObject("Outlook.Application")
120   Set OutMail = OutApp.CreateItem(0)


130   On Error Resume Next


160   With OutMail
170   .To = strToSQL
      '190     .CC = strCC1 & ";" & strCC2
180     .Subject = strSubject
190     .Attachments.Add strPath
200     .Body = strMessage
210       .Display
220   End With


          
230       On Error GoTo 0
240       Exit Sub


cmdEmailProduction_Click_Error:


250       MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdEmailProduction_Click, line " & Erl & "."


End Sub

[June7]

You have code. What happens - error message, wrong result, nothing?

[Blings]

I want to strip the attachment from the email and only write an email.

[Welshgasman]

So why add it in the first place????

[Blings]

I copied and pasted from a different button that facilities that function hence my question why I asked.

[June7]

What do you mean by "it's a copy" - the code is a copy? If you don't want to do an attachment then remove the line or comment it.

[Welshgasman]

What do you mean by "it's a copy" - the code is a copy? If you don't want to do an attachment then remove the line or comment it.

I believe Blings is saying 'I have no idea what all this code does' ?

Blings,
You can probably get away with just this
NB: Edited in Notepad++
Personally I would also set any objects created to Nothing?

Private Sub cmdEmailProduction_Click()10        On Error GoTo cmdEmailProduction_Click_Error
20            If Me.Dirty Then Me.Dirty = False

      Dim strSQL As String
      Dim OutApp As Object
      Dim OutMail As Object
      Dim strToSQL As String
      
      Dim strSubject As String
      Dim strMessage As String
      


35    strSalesOrderNumber = Me.SalesOrderNumber
40    strToSQL = Me.txtEmail
50    strSubject = "Despatch | SO " & [SalesOrderNumber] & ""




100   strMessage = "Despatch Notification."


110   Set OutApp = CreateObject("Outlook.Application")
120   Set OutMail = OutApp.CreateItem(0)


130   On Error Resume Next


160   With OutMail
170   .To = strToSQL

180     .Subject = strSubject

200     .Body = strMessage
210       .Display
220   End With


          
230       On Error GoTo 0
240       Exit Sub


cmdEmailProduction_Click_Error:


250       MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdEmailProduction_Click, line " & Erl & "."


End Sub

[Blings]

Thank you @Welshgasman. Your code worked perfectly