Sending Mail From Access (2003)

[grovelli]

Is there a way to click the Yes button via code in the warning message (see picture)
that pops up in response to a Send command?
<pre>Private Sub Sospeso_AfterUpdate()
Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olMailItem As Outlook.MailItem
Dim strBodyText As String
If Sospeso = True Then
If Me!SentFlag = False Then
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(OlFolderInbox)
Set olMailItem = olFolder.Items.Add("IPM.Note")
strBodyText = "In merito alla Vs richiesta del" & vbCrLf & _
Me.Giorno & vbCrLf & _
"Utente: " & Me.Rich & vbCrLf & _
"di: " & Me.UnMis & " " & Me.Quantity & " " & Me.Description & _
"." & vbCrLf & _
"Desidererei conoscere ulteriori dettagli." & vbCrLf & _
"Attendo Vs chiamata."
With olMailItem
.Subject = "Richiesta Materiale"
.To = Me.email
.Body = strBodyText
.Importance = olIMportanceHigh
<span style="background-color: #FFFF00; color: #000000; font-weight: bold"> .Send</span hi>
End With
Set olMailItem = Nothing
Set olFolder = Nothing
Set olNS = Nothing
Set olApp = Nothing
Me!SentFlag = True
Else: Exit Sub
End If
Else
Exit Sub
End If
End Sub</pre>

[HansV]

See <post:=488,173>post 488,173</post:>.

[grovelli]

Thank you Hans, I think I'll go with either of the first two options. If I were to install the Outlook Redemption(I suppose one needs Admin privileges to do that), would the code you see in my post need to be modified or stay the same?

[HansV]

You'd have to rewrite it extensively - see the documentation on the Outlook Redemption website.

[HansV]

Gary Rezek posted a useful example of using Outlook Redemption - see <post:=700,945>post 700,945</post:>.