Private Sub Command799_Click() Me.Dirty = False If IsNull(Me.txtChargeCode.Value = True) And Me.cboMancamp.Value > 0 Then MsgBox "You must enter an AFE, Work Order, or Cost Center", vbOKOnly, "CHARGE CODE REQUIRED" Else If Me.cboMancamp.Value > 0 And IsNull(Me.txtStartDate.Value = True) Then MsgBox "You must enter an arrivial and check-out date", vbOKOnly, "LODGING DATES REQUIRED" Else If Me.cboMancamp.Value > 0 And IsNull(Me.txtEndDate.Value = True) Then MsgBox "You must enter an arrivial and check-out date", vbOKOnly, "LODGING DATES REQUIRED" Else DoCmd.RunCommand acCmdSaveRecord Dim strBody As String Dim strEmail As String Dim strSubject As String Dim objOutlook As Object Dim objMailItem As Object Const olMailItem As Integer = 0 Set objOutlook = CreateObject("Outlook.Application") Set objMailItem = objOutlook.CreateItem(olMailItem) On Error GoTo err_Error_handler strEmail = [TO_Group] strCc = [CC_GROUP] strSubject = "Field Visit Booking (Request ID# " & Me.FieldVisitBookingID & ") For " & txtContactName & " Starting " & Me.txtStartDate & " Finishing " & Me.txtEndDate strBody = "<IMG alt='' hspace=0 src='L:\SharedData\Harrison\Midstream\ACIST\Support Files\Graphics\OPEN_email header-02.jpg' align=baseline border=0> <br>" & _ "<br><br><font face=Calibri style=font-size:14pt;>All,<br><br> " & "" & _ "A representative from " & Me.txtCompanyFullName & ", " & Me.txtContactName & ", (" & Me.txtContactMobile & ") will be visiting the field between <b>" & Me.txtStartDate & "</b> and <b>" & Me.txtEndDate & "</b>. " & _ "We would like to book them at the " & Me.cboMancamp & " and charge to <b>" & txtChargeCode & "</b>.<br /> " objMailItem.SentOnBehalfOfName = strFro objMailItem.To = strEmail objMailItem.CC = strCc objMailItem.Subject = strSubject objMailItem.Importance = olImportanceHigh objMailItem.HTMLBody = strBody objMailItem.BodyFormat = olFormatHTML objMailItem.Attachments.Add ("L:\test.pdf") objMailItem.Display Set objOutlook = Nothing Set objMailItem = Nothing exit_Error_handler: On Error Resume Next Set objOutlook = Nothing Set objMailItem = Nothing Exit Sub err_Error_handler: Select Case Err.Number Case 287 MsgBox "Canceled by user.", vbInformation Case Else MsgBox "Error " & Err.Number & " " & Err.Description End Select Resume exit_Error_handler DoCmd.Close acForm, "FieldVisitBookingEntryF" End If End If End If End Sub
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Connect with Certified Experts to gain insight and support on specific technology challenges including: