Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 5 of 5

Thread: email problem

  1. #1
    Senior Coder
    Join Date
    May 2004
    Posts
    1,441
    Thanks
    15
    Thanked 0 Times in 0 Posts

    email problem

    i'm sending an email using cdo to send an html email.

    i get the email fine but on my clients server after a certain amount of characters - it gets cut off and says ------=_NextPart_000_00A0_01C8572D.B79354D0--

    what can be causing this?

  • #2
    Regular Coder
    Join Date
    Sep 2007
    Posts
    120
    Thanks
    0
    Thanked 3 Times in 3 Posts
    A boundary attribute in the content type?

  • #3
    Senior Coder
    Join Date
    May 2004
    Posts
    1,441
    Thanks
    15
    Thanked 0 Times in 0 Posts
    what do you mean

    content type=1255 but i need it for hebrew

  • #4
    Regular Coder
    Join Date
    Sep 2007
    Posts
    120
    Thanks
    0
    Thanked 3 Times in 3 Posts
    Is there an attribute 'Boundary'?

    Show us some code....

    Tom

  • #5
    Senior Coder
    Join Date
    May 2004
    Posts
    1,441
    Thanks
    15
    Thanked 0 Times in 0 Posts
    Code:
    Function SendCDOEmail(smtpserver,username,password, strSubject, strBody,strFromAddress,strReplyToAddress, strToAddress,strCc,strBCc,intpriority,strBodyFormat,Attachment)
    
    
    set objMessage = createobject("cdo.message")
    set objConfig = createobject("cdo.configuration")
    set b =objMessage.bodypart 
    
    b.charset = "windows-1255" 
    
    ' Setting the SMTP Server
    Set Flds = objConfig.Fields
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    'Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "do_not_reply@mysite.com"
    'Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
    Flds.update
    
    
    Set objMessage.Configuration = objConfig
    objMessage.To = strToAddress
    objMessage.CC = strCc
    objMessage.From = strFromAddress
    objMessage.Subject = strSubject
    
    objMessage.HTMLBody = strBody
    objMessage.fields.update
    on error resume next
    objMessage.Send
    if err.number <> 0 then
    	response.write err.description
    else
    	Response.write "<BR> Mail sent..."
    end if
    
    End Function
    Last edited by esthera; 01-16-2008 at 12:41 PM. Reason: removed site name


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •