Hi,Prz59

Display Month

Public Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long,
ByVal lpTimerfunc As Long) As Long
Public Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As
Long, ByVal SysTime As Long) As Long
KillTimer 0, idEvent
DoEvents
Sleep 100
' Alt + s send mail
Application.SendKeys "%s"
End Function
Sub SendMail()
Dim objOL As Object
Dim itmNewMail As Object
'Microsoft Outlook object
Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.Subject = "chijanzen Mail Test" 'Subject
.Body = Application.UserName & "Email test" 'Body
.To = " 'User
.Attachments.Add ThisWorkbook.FullName 'send ThisWorkbook
.Display 'Display
SetTimer 0, 0, 0, AddressOf WinProcA
End With
Set objOL = Nothing
Set itmNewMail = Nothing
End Sub

--
http://www.vba.com.tw/plog/


"Prz59" wrote:

I'm trying to automate the sending of a spreadsheet from via Outlook. I have
the code in place to build the spreadsheet and setup the Outlook Application
object and the MailItem object. It sends the message but gives me a warning
that requires a user interaction. Is there a way to bypass this warning?