Results 1 to 5 of 5
  1. #1
    Join Date
    Jun 2003
    Location
    New Zealand
    Posts
    3

    Question Unanswered: Email from Access 97

    I have an app. written in Access97 which provides the user with the opportunity to send an Email to a selected contact in the database. This feature works fine under Windows 95/98/2000. One user has now changed to Windows XP and the app. no longer opens his email client (Outlook Express, same as it was under 98). Any ideas?

    Thanks in advance,
    Brian

  2. #2
    Join Date
    May 2003
    Location
    Dallas
    Posts
    817
    Provided Answers: 5
    are you using the outlook express object model or the sendobject code?

  3. #3
    Join Date
    Jun 2003
    Location
    New Zealand
    Posts
    3
    Originally posted by axsprog
    are you using the outlook express object model or the sendobject code?
    Using SendObject but not deeply committed to it. I just want something which will do the job for the user. He uses Outlook Express.

  4. #4
    Join Date
    May 2003
    Location
    Dallas
    Posts
    817
    Provided Answers: 5
    if I am not mistaken the sendobject funtionality was stripped out in post 97 due to viruses being propagated in email.

    use the cdo library - or I use a piece of code that cretaes email in outlook and it works great - the only prob is with newer versions of office - everytime you send a meassage programatically a message box wilol fire telling the user another app is accessing the email account.- A real pain in the as_ try the cdo object model here is a sample of how it works:

    Public Sub procCDOMail()
    Dim iMsg As CDO.Message
    Dim iConf As CDO.Configuration
    Dim Flds

    Set Flds = iConf.Fields

    With Flds
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "smtp.broadbandip.net"
    .Item(cdoSMTPConnectionTimeout) = 10 'Quick timeout
    .Item(cdoSMTPAuthenticate) = cdoBasic
    .Item(cdoSendUserName) = "isdinc"
    .Item(cdoSendPassword) = ""
    '.Update

    End With

    With iMsg
    Set .Configuration = iConf
    .To = "recipient@wherever.com"
    .From = "youremail@whatever.com.com"
    .Subject = "This is a test."
    '.CreateHTMLBody "http://MyPage"
    .AddAttachment "C:\Autoexec.bat"
    .Send
    End With

    End Sub

  5. #5
    Join Date
    Jun 2003
    Location
    New Zealand
    Posts
    3
    Originally posted by axsprog
    if I am not mistaken the sendobject funtionality was stripped out in post 97 due to viruses being propagated in email.

    use the cdo library - or I use a piece of code that cretaes email in outlook and it works great - the only prob is with newer versions of office - everytime you send a meassage programatically a message box wilol fire telling the user another app is accessing the email account.- A real pain in the as_ try the cdo object model here is a sample of how it works:

    Public Sub procCDOMail()
    Dim iMsg As CDO.Message
    Dim iConf As CDO.Configuration
    Dim Flds

    Set Flds = iConf.Fields

    With Flds
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "smtp.broadbandip.net"
    .Item(cdoSMTPConnectionTimeout) = 10 'Quick timeout
    .Item(cdoSMTPAuthenticate) = cdoBasic
    .Item(cdoSendUserName) = "isdinc"
    .Item(cdoSendPassword) = ""
    '.Update

    End With

    With iMsg
    Set .Configuration = iConf
    .To = "recipient@wherever.com"
    .From = "youremail@whatever.com.com"
    .Subject = "This is a test."
    '.CreateHTMLBody "http://MyPage"
    .AddAttachment "C:\Autoexec.bat"
    .Send
    End With

    End Sub
    Thanks - I will give this a try.

Posting Permissions

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