Try this please:
Code:
Public Sub Command29_Click()
'******************************************
'******** Create PDF file and Email******
'******************************************
'Create File
DoCmd.OutputTo acOutputReport, "Daily Scan", "PDFFormat(*.pdf)", "", False, "", , acExportQualityPrint
Beep
MsgBox "File Created Now E-mailing", vbInformation, ""
DoCmd.Close acReport, "Daily Scan"
' send via E mail
'"Send reports Via Visual Basic E-Mail****"
Dim objCDOConfig As Object
Dim objCDOMessage As Object
Dim CurrentFolder As String
Dim FileName As String
Dim myPath As String
Dim UniqueName As Boolean
UniqueName = False
'setting smtp gmail mail
Const cdoschema = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoSendUsingPort = 2
Const cdoBasic = 1
'Vlad commented out on March 29/2020
Public strSMTPServer = DLookup("[ServerAddress]", "[TblEmailSettings]") as string
Public strFrom = DLookup("[EmailAccount]", "[TblEmailSettings]") as string
Set objCDOConfig = CreateObject("CDO.Configuration")
With objCDOConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer 'DLookup("[ServerAddress]", "[TblEmailSettings]")
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strFrom 'DLookup("[EmailAccount]", "[TblEmailSettings]")
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = DLookup("[AccountPassword]", "[TblEmailSettings]")
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
'setting smtp gmail complete
Set objCDOMessage = CreateObject("CDO.Message")
With objCDOMessage
Set .Configuration = objCDOConfig
.From = strFrom
.Sender = strFrom
.To = Forms![Customer Form Selector]![Primary E-mail]
.CC = DLookup("[CCSender]", "[TblEmailSettings]")
.Subject = DLookup("[SubjectLine]", "[TblEmailSettings]")
.TextBody = DLookup("[Message]", "[TblEmailSettings]")
.AddAttachment ("C:\Users\Dave\Documents\Daily Scan.pdf")
.Send
End With
'Kill FileName & "*.XLS"
Beep
MsgBox "E-mail Sent", vbInformation, ""
End Sub
End Sub
@davegri
Yes, Dave, you can use square brackets in domain functions:
Cheers,
Vlad