Skip to content

Instantly share code, notes, and snippets.

@janzenz
Created October 1, 2014 15:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • 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") = "send@westcoastfinance.com.au"
.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