Hi All

I'm trying to send a legitimate (i.e. not Spam) email from Word via Outlook
but falling foul of the security warning ("A program is trying to send etc.").
I've had a certain amount of success using SendKeys from Word to deal with
this but would like to know if it is possible to indicate to Outlook that the
message does not need to be spell checked. I can use SendKeys to deal with
this too but then that assumes that the message will always contain words
that Outlook doesn't recognise.

I'm using the following code:

Sub Send_Message(strWhoTo As String, strSubject As String, strFileName As
String, Optional strBodyText As String)
Dim msMAPI As Outlook.Namespace
Dim objOutbox As Outlook.MAPIFolder
Dim objNewMessage As Outlook.MailItem
Dim Message As Integer

If Tasks.Exists("Microsoft Outlook") = True Then

Set msMAPI = Outlook.GetNamespace("MAPI")
Set objOutbox = msMAPI.GetDefaultFolder(olFolderOutbox)
Set objNewMessage = objOutbox.Items.Add

With objNewMessage

.To = strWhoTo
.Subject = strSubject
.Body = strBodyText

If strFileName "" Then

If Dir(strFileName) "" Then
.Attachments.Add strFileName
End If

End If

.Send

'if the security warning becomes a problem then can this
.Display
SendKeys "^{ENTER}"
'these lines deal with the spell checker so would need to be sure
that it was always going to run
SendKeys "{ESC}"
SendKeys "^{ENTER}"

End With

End if
End Sub

Thanks in advance for any help.

ArchieD

--
Message posted via http://www.officekb.com

The security prompt has nothing to do with the spellchecker.
See http://www.outlookcode.com/d/sec.htm

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"ArchieDog via OfficeKB.com" u3408@uwe wrote in message
news:6f53e7c0a9b5b@uwe...
Hi All

I'm trying to send a legitimate (i.e. not Spam) email from Word via
Outlook
but falling foul of the security warning ("A program is trying to send
etc.").
I've had a certain amount of success using SendKeys from Word to deal with
this but would like to know if it is possible to indicate to Outlook that
the
message does not need to be spell checked. I can use SendKeys to deal
with
this too but then that assumes that the message will always contain words
that Outlook doesn't recognise.

I'm using the following code:

Sub Send_Message(strWhoTo As String, strSubject As String, strFileName As
String, Optional strBodyText As String)
Dim msMAPI As Outlook.Namespace
Dim objOutbox As Outlook.MAPIFolder
Dim objNewMessage As Outlook.MailItem
Dim Message As Integer

If Tasks.Exists("Microsoft Outlook") = True Then

Set msMAPI = Outlook.GetNamespace("MAPI")
Set objOutbox = msMAPI.GetDefaultFolder(olFolderOutbox)
Set objNewMessage = objOutbox.Items.Add

With objNewMessage

.To = strWhoTo
.Subject = strSubject
.Body = strBodyText

If strFileName "" Then

If Dir(strFileName) "" Then
.Attachments.Add strFileName
End If

End If

.Send

'if the security warning becomes a problem then can this
.Display
SendKeys "^{ENTER}"
'these lines deal with the spell checker so would need to be sure
that it was always going to run
SendKeys "{ESC}"
SendKeys "^{ENTER}"

End With

End if
End Sub

Thanks in advance for any help.

ArchieD

--
Message posted via http://www.officekb.com

Hi Dmitry

Thanks very much for your response. I can get past the security issue by
using SendKeys. However, I want the message to run unattended and using the
SendKeys method means that when I get past the security prompt & send the
keys to make Outlook send the message, the spell checker kicks in. I suspect
that I'm going to have to use something like ClickYes to achieve this but, if
I could just prevent the spell checker running for the message - as you can
in Word by marking text not to be spell checked. - then I would be able to do
without a third party product. Unfortunately, using a third party product
will mean evaluation by IT, gaining authorisation, appointing a committee etc.
etc. ... need I go on?

ArchieD



Dmitry Streblechenko wrote:
The security prompt has nothing to do with the spellchecker.
See http://www.outlookcode.com/d/sec.htm

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

Hi All

[quoted text clipped - 57 lines]

ArchieD

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...g-vba/200703/1