[RESOLVED] Send Email

[cjwallace]

Guys.

I am converting a vbscript over to vb 2005. When moving the code over below it seems vb 2005 does not like , on each of the new lines.

Can someone please let me know what i should replace the , with?


objEmail = CreateObject("CDO.Message")

objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "New User - " & strFirst & " " & strLast & " Elite Account Details "
objEmail.Textbody = Join( Array( _
"****Automatic email****," _
, " "_
, "Please note London IT have created a new user."_
, " "_
, "Name: " & strFirst & " " & strLast &" " _
, " "_
, "Initials: " & strUser & " "_
, " "_
, "Elite Password: " & objPassDlg.password & " "_
, " "_
, "Department: " & sDepartment & " "_
, " "_
, "Office Location: " & WithersOffice.Value & " "_
, " "_
, " "_
, "Accounts could you please add this user to Elite please and do your Magic!"_
, " "_
, "Regards"_
, " "_
, "European IT Helpdesk"_
, "Withers LLP"_
, " "_
, "+44 (0) 207 597 6440"_
, "[email protected]"_
, " "_
, "****Please note this email was automatically generated from the IT User Creation Script****"_
, " "_
, "Please contact the European IT Helpdesk x6440 with any issues"_
, " "_
, "This Account has been created by: " & strLoggedonUser & ""_
, " " ), vbCrLf )
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"IP ADDRESS HERE"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update()
objEmail.Send()

End If