Any Access Guru's in the house?

[porcupine]

Ok,

Well i know my fair bit about MS Access 2k, heck, i know more then most, but I dont know it all, and have no shame admitting this. Currently some of our functions are being slowed down by the DB's inabiilty to send email direct as a result of an access bug (REF: http://support.microsoft.com/default.as ... -us;260819 ) If anyone can provide a *REALISTIC* way around this, that does not rely on outside dependancies, i am more then willing to provide a service credit equivalent to the headache it will save me, which is fairly signifigant. In short, if you think you can find the solution, upgrading does not help, updating to SP2 creates a new problem (email security settings that slow each message 5 seconds and require user input for each occurance), direct SMTP connection VBA code hasn't worked thus far, etc.

Lastly, im using outlook express 6, and have no interest in using outlook 2000, or ms exchange, so dont even suggest a fix that requires either of those . If you're a current customer, or want free service, this is the way to get it either way, if anyone can come up to a realistic solution, the service credit is theirs! Better luck then i've had to everyone .

[isinglass]

Will this work?

Code: Select all

' TEST INSTRUCTIONS
' 1. change the SMTP server to one you can send through in sub SendMailCDO2
' 2. set the email from and to in command0_click

Private Sub Command0_Click()

Call SendMailCDO2("isinglass@your-addy.net", "test subject 1", "message here", "from@dfgdfg.net")
Call SendMailCDO2("isinglass@your-addy.net", "test subject 2", "message here", "from@dfgdfg.net")
Call SendMailCDO2("isinglass@your-addy.net", "test subject 3", "message here", "from@dfgdfg.net")
Call SendMailCDO2("isinglass@your-addy.net", "test subject 4", "message here", "from@dfgdfg.net")
Call SendMailCDO2("isinglass@your-addy.net", "test subject 5", "message here", "from@dfgdfg.net")

End Sub

 
Sub SendMailCDO2(aTo, Subject, TextBody, aFrom)
  
    'cached configuration
  Static Conf  'As New CDO.Configuration
  If IsEmpty(Conf) Then
    Const cdoSendUsingPort = 2
    
    Set Conf = CreateObject("CDO.Configuration")
    
    With Conf.Fields
      .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
      ' * * * * * * set this to your SMTP server * * * * * *
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.ntlworld.com"
      .Update
    End With
  End If
  
  Dim Message 'As New CDO.Message
  
  'Create CDO message object
  Set Message = CreateObject("CDO.Message")
  With Message
    'Set cached configuration
    Set .Configuration = Conf
    
    'Set email adress, subject And body
    .To = aTo
    .Subject = Subject
    .TextBody = TextBody
    
    'Set sender address If specified.
    If Len(aFrom) > 0 Then .From = aFrom
    
    'Send the message
    .Send
  End With
End Sub

Or maybe one of the other examples here will do it?
http://asp-send-mail-email-e-mail-messa ... om-asp.htm

[porcupine]

I've yet to see this example, (haven't checked the link yet, thats one long domain name thought ), i'll look into it tonight, since i've yet to try this solution, we may or may not have a winner here!

[porcupine]

Just as a FYI, haven't managed to get this solution working, no dice yet, tinkered with it a bit but haven't got any luck.... Probably going to take a few more serious stabs at it before dismissing it as dysfunctional.