Skip to content

Instantly share code, notes, and snippets.

@janzenz
Created October 1, 2014 15:12
Show Gist options
  • Save janzenz/138400e0ea5ffea8311e to your computer and use it in GitHub Desktop.
Save janzenz/138400e0ea5ffea8311e to your computer and use it in GitHub Desktop.
West Coast Finance
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "localhost" 'mailserver
.Item(sch & "smtpserverport") = 25
.Item(sch & "smtpserver") = "mail.westcoastfinance.com.au" 'mailserver
.Item(sch & "smtpusessl") = false
.Item(sch & "smtpconnectiontimeout") = 60
.Item(sch & "smtpauthenticate") = 1
.Item(sch & "sendusername") = "[email protected]"
.Item(sch & "sendpassword") = "update"
.Update
End With
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment