16.11.2013 Views

Classic ASP - Import application: - GetACoder

Classic ASP - Import application: - GetACoder

Classic ASP - Import application: - GetACoder

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Seychelles<br />

EMAIL SCRIPT:<br />

Dim Message<br />

Message =""<br />

sch = "http://schemas.microsoft.com/cdo/configuration/"<br />

Set cdoConfig = CreateObject("CDO.Configuration")<br />

With cdoConfig.Fields<br />

.Item(sch & "sendusing") = 2 ' cdoSendUsingPort<br />

.Item(sch & "smtpserver") = "209.62.68.34"<br />

.Item(sch & "cdo<strong>Import</strong>ance") = 2<br />

.Item(sch & "cdoPriority") = 1<br />

.Item("urn:schemas:mailheader:X-Priority") = 1<br />

.update<br />

End With<br />

Set cdoMessage = CreateObject("CDO.Message")<br />

With cdoMessage<br />

Set .Configuration = cdoConfig<br />

.From = " Solutions on behalf of "<br />

.To = ""<br />

.Subject = "Invite from to Join Solutions CS<br />

-Suite"<br />

.htmlbody = "(This text will be added later)"<br />

.Send<br />

Please initial________<br />

3<br />

-

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!