WriteLine ="" WriteLine = WriteLine & "" WriteLine = WriteLine & "content" WriteLine = WriteLine & "" set msg = CreateObject("CDO.Message") msg.From = "piphead@karoo.co.uk" msg.To = "dave@harrisonit.co.uk" msg.Subject = "Your Web Log for " & date() msg.HTMLBody = WriteLine msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.freeserve.co.uk" msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true 'msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "8888" 'msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****" msg.Configuration.Fields.Update msg.Send set msg = nothing