-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Steve, I used to send email using CDO, until I experienced similar problems. I switched to an alternate means, and my emails now work great. Might I suggest using ASPemail or similar product?
Ben Timby Webexcellence PH: 317.423.3548 x23 TF: 800.808.6332 x23 FX: 317.423.8735 [EMAIL PROTECTED] www.webexc.com - -----Original Message----- From: Steve Abaffy [mailto:[EMAIL PROTECTED]] Sent: Wednesday, September 18, 2002 1:44 PM To: ActiveServerPages Subject: Problems with Mail Hello, This is driving me crazy. I have a table from which I send emails. We send out 16 different letters so the database keeps track of which letter is the next letter to be mailed. So I have a subroutine "Email" which I use to send all the email from my system. Then I have the following code snippet from the letter sending program Now this is what is happening. If the RS("Letter") is a single digit number then the link that is sent in the email is missing the "." right before the html in the href of the link. If I send the email with htmlMode=1 then all is right but if I send the email with htmlMode=0 then then the "." disappears from the link for single digit letter numbers. I am totally confused. Any help would be greatly apprecitated. LetterLink = "<a href=""http://www.cditelecom.com/Members/Marketing/leads/letters/lette r" LetterLink = LetterLink & CINT(RS("Letter")) + 1 & ".html"">" strBody2 = strBody2 & "To view letter " & RS("Letter") & ", please click " & LetterLink & "here.</a>" email TRIM(RS("CDIMemberEmail")),"[EMAIL PROTECTED]","One of your leads has been sent a letter",strBody2,0,"" SUB email(strTo,strfrom,strSubject,strBody,htmlMode,bcc) On Error Resume Next Dim objCDO Set objCDO = Nothing Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To= StrTo If bcc <> "" THEN objCDO.BCC = bcc END IF objCDO.From = strFrom objCDO.Subject = StrSubject objCDO.BodyFormat = HtmlMode objCDO.MailFormat = HtmlMode objCDO.body= strBody objCDO.Send END SUB - --- You are currently subscribed to activeserverpages as: [EMAIL PROTECTED] To unsubscribe send a blank email to %%email.unsub%% -----BEGIN PGP SIGNATURE----- Version: PGP 7.0.4 iQA/AwUBPYkd4fnby1cCm2Q8EQITLwCgowkUUn9oKnbwmb1537KnBshlRzkAnivP TZjvUBYpF1gaqRm4u3KE6mOp =hq4K -----END PGP SIGNATURE----- --- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
