Email query

  • Thread starter Thread starter Carl Howarth
  • Start date Start date
C

Carl Howarth

Hi there,

I am trying to send emails automatically from a system using the following
code - I am wanting to use the hosting machine's own SMTP facility, which I
am sure has worked in the past!

Dim obMail As New MailMessage
With obMail

..To = (e-mail address removed)

..From = (e-mail address removed)

..Subject = "Clientserve Brief Created (" & Session("ClientName") & ")."

..BodyFormat = MailFormat.Html

..Body = Session("RealName") & " from " & Session("ClientName") & " has
submitted a brief using Clientserve.<BR><BR>Please log in to <A
HREF='http://www.website.com/cas'>CAS</a> to view the relevant
details.<BR><BR>Regards,<BR><BR>Clientserve"

..Priority = MailPriority.Normal

End With

SmtpMail.Send(obMail)

It goes through OK and doesn't generate an error but the email never
arrives!



Any suggestions?

Many thanks, Carl
 
Back
Top