Is there any way to export object query with current date (1 Viewer)

Ranman256 said:

export the reg. query to a file with the date:

vFile = "c:\folder\VdrDeliveredtoDock" & Format(Date, "MMM-DD-YYYY") & ".xlsx"
docmd.TransferSpreadsheet acExport ,acSpreadsheetTypeExcel12,"VdrDeliveredtoDock",vFile,true

then email it (NOTE : YOU MUST HAVE THE OUTLOOK REFERENCE CHECKED IN VBE):

vTo = "abc@gmail.com"
vSubj = "Dry Vendor delivered to DOCK",
vBody = "Good Morning," & vbNewLine & "Attached please find the subject report." & vbNewLine & "Thanks,"

Email1 vTo, vSubj, vBody, vFile

Code:Copy to clipboard

Public Function Email1(ByVal pvTo, ByVal pvSubj, ByVal pvBody, Optional ByVal pvFile) As Boolean
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem

On Error GoTo ErrMail

'NOTE : YOU MUST HAVE THE OUTLOOK REFERENCE CHECKED IN VBE; ctl-G, menu,tools, references, Microsoft Outlook XX Object library
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.createitem(olmailitem)

With oMail
    .To = pvTo
    .Subject = pvSubj
    If Not IsNull(pvBody) Then .Body = pvBody
    If Not IsMissing(pvFile) Then .Attachments.Add pvFile, olByValue, 1
    
    .Display True
    '.Send
End With

Email1 = True
endit:
Set oMail = Nothing
Set oApp = Nothing
Exit Function

ErrMail:
MsgBox Err.Description, vbCritical, Err
Resume endit
End Function

Click to expand...