Snapshot format
- Thread starter halem2
- Start date
So long as it's a standard file dialog box, you should be able to programmatically use the FileDialog object (requires the MS Office X.0 Object Library) and then use the Filter method:
FileDialogObject.Filters.Clear
FileDialogObject.Filters.Add "Snapshot","*.snp"
FileDialogObject.Filters.Clear
FileDialogObject.Filters.Add "Snapshot","*.snp"
Simply copy and paste the code into a new module. On the Click event of your command button select Event procedure, click the build button and code:
EmailSnpFile
Make sure to add the Microsoft Outlook Object Library to your References (Tools > References from the Menu Bar in VBA Editor).
EmailSnpFile
Make sure to add the Microsoft Outlook Object Library to your References (Tools > References from the Menu Bar in VBA Editor).
Does your application currently capture the user though some king of login? That function would have to exits first. Then the code cam be modified as follows:
---------------------------
Function EmailSnpFile(strEmail As String)
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
Dim strPath As String
'Output Report as Snapshot file
strPath = CurrentProject.Path
DoCmd.OutputTo acOutputReport, "Your Report Name", acFormatSNP, strPath & "\Report.snp"
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.To = strEmail
.Subject = "Your Subject"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY>" & "Your Email Body" & "</BODY></HTML>"
.Attachments.Add strPath & "\Report.snp"
.Display
End With
End Function
---------------------------
Then the Call from the command button would need to be:
EmailSnpFile me![User email field]
---------------------------
Function EmailSnpFile(strEmail As String)
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
Dim strPath As String
'Output Report as Snapshot file
strPath = CurrentProject.Path
DoCmd.OutputTo acOutputReport, "Your Report Name", acFormatSNP, strPath & "\Report.snp"
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.To = strEmail
.Subject = "Your Subject"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY>" & "Your Email Body" & "</BODY></HTML>"
.Attachments.Add strPath & "\Report.snp"
.Display
End With
End Function
---------------------------
Then the Call from the command button would need to be:
EmailSnpFile me![User email field]
