[keithmoloney]

 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?

[jg007]

unfortunately this is a new security feature that MS released following several email virus attacks and I have not found any way to disable it.

I have seen various programs to get around this but at $39 they are a bit expensive

to get around this you could use SMTPsend although you would have to get the user to enter their SMTP details to use this.

see this page for some code -

http://www.progtalk....px?ArticleID=52

[jg007]

I have also just found another program that might work around this and is a free download although you are need to pay $199 if you actually include it in a program

http://www.dimastr.com/redemption/

[Jayman]

Use the System.Net.Mail Namespace.

[BloodyPeasant]

I've had good luck using this free add-in to avoid the MSFT security alerts

ASPEmail

[balberts]

BloodyPeasant, on 04 August 2008 - 08:42 AM, said:

I've had good luck using this free add-in to avoid the MSFT security alerts

ASPEmail

Private Shared Function SendEmail(ByVal ToAddress As String, ByVal Subject As String, ByVal message As String) As Boolean
Try

Dim addrCC As New Mail.MailAddress("emailAddress")
Dim attch As New Mail.Attachment("c:\test.html")
Dim MyMailMessage As New Mail.MailMessage
Dim addrTo As New Mail.MailAddress(ToAddress)
With MyMailMessage
.From = New Mail.MailAddress("emailAddress")
.To.Add(addrTo)
.CC.Add(addrCC)
.Attachments.Add(attch)
.Subject = Subject
.Body = message
.Priority = Mail.MailPriority.High
End With

Dim SMTPClient As New Mail.SmtpClient("mail.somewhere.co.nz")
AddHandler SMTPClient.SendCompleted, AddressOf SendCompletedCallback
With SMTPClient
.Host = "serverName"
.DeliveryMethod = Mail.SmtpDeliveryMethod.Network
.Credentials = New NetworkCredential("emailAddress", "Password")
.EnableSsl = True
.Timeout = 10
.Send(MyMailMessage)
End With
SendEmail = True

Catch eX As Exception
SendEmail = False
CallErrors("clsEmail", "SendEmail", eX.Message)
End Try

End Function

[DimitriV]

Why post code like that? Have you an issue?

[_HAWK_]

Hey @DimitriV, he is just necromancing this thread!