Sending Email via oracle to an Ooutlook shared Mailbox

Question

I am attempting to send email from an access database using VB to an OUtlook shared mailbox and the email does not get sent. It does not generate an error message but the mailbox never receives the email. The email functionality works fine when sending to a private mailbox in Outlook using the same code. Here is what I am attempting to do:. Does anyone know if there is a setting within the shared mailbox that is preventing the email to be sent?
Public Function Send_Oracle_Email(Recipient_Emails As String, Email_Subject As String, Email_Message As String) As Double
'MsgBox "test"
On Error GoTo Send_Oracle_Email_Error
Dim strConn As String
Dim strCMD As String
Dim oConn As New ADODB.Connection
Dim cmdCommand As New ADODB.Command
Dim rsADO As New ADODB.Recordset
Dim intIndex As Integer
Dim strSentFrom As String
Dim objPara As ADODB.Parameter
' define the connection settings to the server
strConn = "DSN=CSD_PO_PMIS_BUS;Uid=csdmgr
'strConn = "DSN=CSD_PO_PMIS_trash;Uid=csdmgr
If IsMissing(Sent_from) Or Len(Trim(Sent_from)) < 3 Then Sent_from = "[email protected]"
' create and open a connection to the server
Set oConn = New ADODB.Connection
With oConn
.ConnectionString = strConn
.CursorLocation = adUseServer
.Mode = adModeRead
.open
End With
'define the command to be sent to the server
strCMD = "CSDMGR.PRC_SEND_EMAIL"
' create the command and it's provide it's settings
Set cmdCommand = New ADODB.Command
With cmdCommand
.ActiveConnection = oConn
.CommandText = strCMD
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("Sender", adVarChar, adParamInput, 2000, Sent_from)
.Parameters.Append .CreateParameter("recipient", adVarChar, adParamInput, 2000, Recipient_Emails)
.Parameters.Append .CreateParameter("p_subject", adVarChar, adParamInput, 2000, Email_Subject)
.Parameters.Append .CreateParameter("message", adVarChar, adParamInput, 2000, Email_Message)
End With
'execute the command
Set rsADO = cmdCommand.Execute
'show the parameters after the call. The output parameters now how the values returned by the Stored Procedure!
'For intIndex = 0 To cmdCommand.Parameters.Count - 1
' Debug.Print cmdCommand.Parameters(intIndex).Name,
'cmdCommand.Parameters(intIndex).Value
'Next intIndex
'clean up
If cmdCommand.CommandType = adCmdText Then
If Not rsADO.EOF Then
rsADO.Close
End If
End If
oConn.Close
Set objPara = Nothing
Set cmdCommand = Nothing
Send_Oracle_Email = 0
Exit Function
Send_Oracle_Email_Error:
Send_Oracle_Email = Err.Number
'MsgBox Err.Description
Exit Function
End Function

Answer 1

I am attempting to send email from an access database using VB to an OUtlook shared mailbox and the email does not get sent.I guess I missed the part where Oracle is involved with your problem.