• How do I bypass Outlook & use an IP addr for SMTP (2003)

    Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » How do I bypass Outlook & use an IP addr for SMTP (2003)

    Author
    Topic
    WSDJLansing
    AskWoody Lounger
    July 12, 2006 at 12:23 pm #433541

    I need to bypass our default Outlook and use our SMTP IP address. Is there a
    way to set the IP address for our SMTP server so the SendObject will use that
    address and not the default.

    Reply | Quote
    Viewing 1 reply thread
    Author
    Replies
    • WSHansV
      AskWoody Lounger
      July 12, 2006 at 12:43 pm #1020033
      Reply | Quote
      • WSDJLansing
        AskWoody Lounger
        July 12, 2006 at 12:50 pm #1020036

        Thank you Hans

        Reply | Quote
      • WSDJLansing
        AskWoody Lounger
        July 12, 2006 at 3:49 pm #1020063

        Hans,
        I’m having trouble understanding how to connect to CDO. When I run the code I get the attached error. Under MS/Access I’m not sure what I need to define FLDS as.

        ‘ Send by connecting to port 25 of the SMTP server.
        Dim iMsg
        Dim iConf
        Dim Flds
        Dim strHTML
        Const cdoSendUsingPort = 25
        set iMsg = CreateObject(“CDO.Message”)
        set iConf = CreateObject(“CDO.Configuration”)
        Set Flds = iConf.Fields
        ‘ Set the CDOSYS configuration fields to use port 25 on the SMTP server.
        With Flds
        .Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = cdoSendUsingPort
        .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “”
        .Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 10
        .Update ‘ <==== Error is here
        End With
        ‘ Build HTML for message body.
        strHTML = “”
        strHTML = strHTML & “”
        strHTML = strHTML & “”
        strHTML = strHTML & “ This is the test HTML message body”
        strHTML = strHTML & “”
        strHTML = strHTML & “”
        ‘ Apply the settings to the message.
        With iMsg
        Set .Configuration = iConf
        .To = “” ‘ToDo: Enter a valid email address.
        .From = “” ‘ToDo: Enter a valid email address.
        .Subject = “This is a test CDOSYS message (Sent via Port 25)”
        .HTMLBody = strHTML
        .Send
        End With

        ‘ Clean up variables.
        Set iMsg = Nothing
        Set iConf = Nothing
        Set Flds = Nothing

        MsgBox “Mail Sent!”

        Within Access i created a module and have changed the following

        Dim iMsg As CDO.Message
        Dim iConf As CDO.Configuration
        Dim Flds As ???????? ‘<======Now sure what to do here
        Dim strHTML As String

        confused
        Edited a mail id.

        Reply | Quote
        • WSHansV
          AskWoody Lounger
          July 12, 2006 at 3:51 pm #1020065

          Flds should be a Variant, so you can use

          Dim Flds As Variant

          or

          Dim Flds

          since Variant is the default variable type. Try removing the from the IP address:

          .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver&#8221;) = “nn.nn.nn.nn”

          Reply | Quote
          • WSDJLansing
            AskWoody Lounger
            July 12, 2006 at 3:14 pm #1020067

            Could it be that I ned another reference. I’m still getting the error
            ‘Fields update failed. For further information, examine the Status property of individual field objects.’
            on the .UPDATE. It’s as if i don’t have updating available to me. I did find an example where ADODB.Fields was used but when I use it ,update is not available.

            Reply | Quote
            • WSHansV
              AskWoody Lounger
              July 12, 2006 at 3:32 pm #1020071

              You need to set a reference to the Microsoft CDO n Library (n = 1.21 on my PC) or to the Microsoft CDO for Exchange n Library (n = version of Exchange you use).

              I’m sorry, I don’t know anything about CDO, so I can’t really help you with this.

              Reply | Quote
            • WSDJLansing
              AskWoody Lounger
              July 12, 2006 at 3:46 pm #1020075

              Thanks for your help Hans.

              I’m using ‘Microsoft CDO for Windows 2000 Library’.

              I’ll look to see if there is a newer version that I need to use.

              Reply | Quote
    • WSVBNerd
      AskWoody Lounger
      July 25, 2006 at 3:21 pm #1022005

      (Edited by HansV to make URL clickable – see Help 19)

      You might look at jmail http://www.dimac.net[/url%5D
      It makes it really easy to send e-mail without the hassle of mapi controls or other cumbersome means.

      Reply | Quote
      • WSDJLansing
        AskWoody Lounger
        August 10, 2006 at 5:16 pm #1024040

        Thanks Mike.

        Sorry I didn’t get back sooner but I’ve been on vacation.

        Reply | Quote
    Viewing 1 reply thread
    Reply To: How do I bypass Outlook & use an IP addr for SMTP (2003)

    You can use BBCodes to format your content.
    Your account can't use all available BBCodes, they will be stripped before saving.

    Your information:




DON'T MISS OUT!
Subscribe to the Free Newsletter
We promise not to spam you. Unsubscribe at any time.
Invalid email address

View the Forum

  • Recent Replies
  • My Replies
  • My Active Topics
  • New Posts in the Last day
  • Private Messages
  • Knowledge Base
  • How to use the Forums
  • All Forums

    • Recent Topics

    My Profile

    March 2025
    S M T W T F S
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031  

    Remembering Woody

     

    Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.

    Mastodon profile for DefConPatch
    Mastodon profile for AskWoody

     

    Home • About • FAQ • Posts & Privacy • Forums • My Account
    Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts

    Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.