This has been working fine for a fair few months now, but recently we changed web servers, and now it no longer works. When I attempt to run the page, internet explorer spends a couple of minutes attempting to load it (which is intself odd as I'd expect it to timeout after 30 seconds), then states that the maximum time for loading a page has expired, but gives no other error message. There are a couple of email addresses in the send-to list, one of them has been receiving the email (?!?) but the rest haven't (and the one that's been receiving it is not the 1st in the list). If I change the email address so it sends only to me, I receive nothing.
I guess theres something different on this new web server, but I don't know what. Any help would be much appreciated!
Expand|Select|Wrap|Line Numbers
- dim mymail
- dim body
- body = "some html bla..."
- Set myMail=CreateObject("CDO.Message")
- myMail.Subject="AM Service Report - "& useDate
- myMail.From="me@somehwere.co.uk"
- myMail.To= "somebody@somehwere.co.uk;someoneelse@somewhere.co.uk"
- myMail.HTMLBody=body
- myMail.AddAttachment "http://www.somewhere.co.uk/results.asp?useDate="& useDate
- myMail.Send
- set myMail=nothing