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 .
Any Access Guru's in the house?
Moderator: Admins
smtp
Will this work?
Or maybe one of the other examples here will do it?
http://asp-send-mail-email-e-mail-messa ... om-asp.htm
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
http://asp-send-mail-email-e-mail-messa ... om-asp.htm