Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.
Private Sub closeform_Click() On Error GoTo Err_closeform_Click If (Status <> "Rejected" And Status <> "Cancelled") Then If Listings = True Then If QINoticeFlag = False Then ''SEND EMAIL to QI for Listing submittal Dim strSNPFilePath As String Call MakeSureDirectoryPathExists("n:\EDM_attachments\ECN_" & Me.ECNNo & "\") strSNPFilePath = "N:\EDM_Attachments\ECN_" & ECNNo & "\ECN" & Me.ECNNo & "Report1.snp" DoCmd.OpenReport "ChangeReportQI", acViewPreview DoCmd.OutputTo acReport, , "SnapshotFormat(*.snp)", strSNPFilePath DoCmd.Close acReport, "ChangeReportQI" Dim Outlook Set Outlook = CreateObject("Outlook.Application") Dim Message 'As Outlook.MailItem Set Message = Outlook.CreateItem(olMailItem) With Message .Subject = "ECN #" & ECNNo & " requires a listing submittal" .Body = "Items on ECN NO. " & [ECNNo] & ", Titled: " & [Title] & vbCrLf & _ ", Descr. of Change: " & [Forms]![frmECNMain]![ChangeDescr] & "; requires a listing submittal for UL,FM,NSF or other. Contact the VP Engineering for details." & _ " A summary of this ECN is available at " & "<A href=" & "file://N:\EDM_Attachments\ECN_" & ECNNo & "\ECN" & ECNNo & "Report1.snp""" .Recipients.Add ("bobi") .Send End With MsgBox "Notice has been sent to the QAM to submit a listing submittal against this ECN.", , "Notice Sent" QINoticeFlag = True End If Else:
|SQL Question - How do I get to see items from a list not in a table?||42||80|
|How to trigger the next record button on an access form via vba?||10||15|
|Delete all Rows in a table then append new rows to same table by automatically every 5 minutes.||5||22|
|How prevent more than one record as the default||8||11|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!