Hallo Nochmal,
leider habe ich nich nicht die Lösung, möchte aber zumindest hier angeben, was ich bisher probiert habe:
Function getAdressDaten() As Variant
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Cmd As ADODB.Command
Dim strProfil As String
Dim strAn As String
Dim strBetreff As String
Dim strText As String
strProfil = "Profilname"
strAn = "test@test.de"
strBetreff = "Testmail"
strText = "Dies ist eine Testmail"
Dim strOutput As Variant
Dim strRecipients As String
Set cnn = CurrentProject.Connection
Set cmdObj = New ADODB.Command
With cmdObj
.ActiveConnection = cnn
.CommandText = "msdb.dbo.sp_send_dbmail"
.CommandType = adCmdStoredProc
.CommandTimeout = 60
.Parameters.Append .CreateParameter("@profile_name", adVarChar, adParamInput, Len(strProfil), strProfil)
.Parameters.Append .CreateParameter("@recipients", adVarChar, adParamInput, Len(strAn), strAn)
.Parameters.Append .CreateParameter("@body", adVarChar, adParamInput, Len(strText), strText)
.Parameters.Append .CreateParameter("@subject", adVarChar, adParamInput, Len(strBetreff), strBetreff)
'hier erhalte ich aber die Fehlermeldung, dass ich Mindestens einen der Werte "@body, @Query, @file_attachments, @subject" angeben muss.
Folgendes habe ich auch irgendwo gelesen, das geht aber gar nicht
'.Parameters.Refresh
'.Parameters("@profile_name") = strProfil
'.Parameters("@recipients") = strAn
'.Parameters("@body") = strText
'.Parameters("@@subject") = strBetreff
.Execute
'und das hier ist nur geraten. Wie komme ich an den Output Wert?
strOutput = .GetParameter("@mailitem_id")
'oder so?
'strOutput = .Parameters("@mailitem_id").Value
End With
MsgBox "Mailitem_id = " & strOutput, vbInformation, "Info"
Set cmdObj = Nothing
Set cnn = Nothing
End Function
Ich hoffe es kann mir jemand auf die Sprünge helfen.
Vielen Dank und viele Grüße
Patrick
