CODE
Dim oApp As Outlook._Application
oApp = New Outlook.Application()
Dim strDest As String = "C:\Documents and Settings\kmoloney\Desktop\kmoloney"
' Create a new MailItem.
Dim oMsg As Outlook._MailItem
oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
oMsg.Subject = "Success" 'title
'message body
oMsg.Body = frmTEST1.Label1.Text + Environment.NewLine + _
"Files have been copied to " + frmTEST1.txtDest.Text + Environment.NewLine + _
"" + Environment.NewLine + "The files that were copied are: " + Environment.NewLine + _
frmTEST1.txtList.Text
'manager and librarian email will be entered here
oMsg.To = "blah@blah.com"
' Dim sBodyLen As String = oMsg.Body.Length
' Send
oMsg.Send()
' Clean up
oApp = Nothing
oMsg = Nothing
End Sub
when this code runs it will send the desired email but only after the user hits an "allow" button.
i want to run this automatically, there will be no user to ok it. is there a way to turn off the permission box?
| 