Outlook object question in VB.NET

[fniles]

I am using VB.NET 2008 and in the COM Tab I add a reference to "Microsoft
Outlook 11.0 Object Library".
When I send an email, a window with the following message (and buttons Yes,
No, Help) always pops up on the screen:
"A program is trying to automatically send e-mail on your behalf. Do you
want to allow this ?
If this is unexpected, it may be a virus and you should choose "No"."

Why does that window pop up, and how can I make it not popup ?
Thank you very much.
Main program
Private oMail As New OutlookMail

sub myForm_Load(...)
oMail.startOutlook()
end sub

Private Sub myForm_FormClosing(..)
oMail = Nothing
End Sub

Sub SendEmail(ByVal sMsg As String, ByVal sToEmail As String, ByVal sSubject
As String)
Dim swError As StreamWriter

If sToEmail <"" Then
oMail.SendEmail(sToEmail, sSubject, sMsg)
End If

End Sub

Private Sub cmdEmail_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdEmail.Click
SendEmail(txtLog.Text, txtEmails.Text, "my subject")
End Sub

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System
Public Class OutlookMail
Dim ns As Outlook.NameSpace
Public Function startOutlook()
'Return a reference to the MAPI layer
Dim ol As New Outlook.Application()

ns = ol.GetNamespace("MAPI")
ns.Logon(, , True, True)
End Function
Public Sub SendEmail(ByVal toVal As String, ByVal subjectVal As String,
ByVal bodyVal As String) ', ByVal sMailID As String)
Dim newMail As Outlook.MailItem
Dim fdMail As Outlook.MAPIFolder

fdMail =
ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFol derOutbox)

'assign values to the newMail MailItem
newMail = fdMail.Items.Add(Outlook.OlItemType.olMailItem)
newMail.Subject = subjectVal
newMail.Body = bodyVal
newMail.To = toVal
newMail.SaveSentMessageFolder = fdMail
newMail.Send()
End Sub
End Class

[Scott M.]

Because you are accessing a mail client (Outlook), you will get Outlook's
built-in security. It comes up to prevent someone from writing a spam virus
that sends out gobs of email without the user knowing it.

I don't believe you can get around this since it is a security feature.
But, if you were to send mail (via code) directly from an SMTP server (like
MS Exchange) you wouldn't get that message.

-Scott

"fniles" <fn****@pfmail.comwrote in message
news:uu****************@TK2MSFTNGP03.phx.gbl...

>I am using VB.NET 2008 and in the COM Tab I add a reference to "Microsoft
Outlook 11.0 Object Library".
When I send an email, a window with the following message (and buttons
Yes, No, Help) always pops up on the screen:
"A program is trying to automatically send e-mail on your behalf. Do you
want to allow this ?
If this is unexpected, it may be a virus and you should choose "No"."

Why does that window pop up, and how can I make it not popup ?
Thank you very much.
Main program
Private oMail As New OutlookMail

sub myForm_Load(...)
oMail.startOutlook()
end sub

Private Sub myForm_FormClosing(..)
oMail = Nothing
End Sub

Sub SendEmail(ByVal sMsg As String, ByVal sToEmail As String, ByVal
sSubject As String)
Dim swError As StreamWriter

If sToEmail <"" Then
oMail.SendEmail(sToEmail, sSubject, sMsg)
End If

End Sub

Private Sub cmdEmail_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdEmail.Click
SendEmail(txtLog.Text, txtEmails.Text, "my subject")
End Sub

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System
Public Class OutlookMail
Dim ns As Outlook.NameSpace
Public Function startOutlook()
'Return a reference to the MAPI layer
Dim ol As New Outlook.Application()

ns = ol.GetNamespace("MAPI")
ns.Logon(, , True, True)
End Function
Public Sub SendEmail(ByVal toVal As String, ByVal subjectVal As String,
ByVal bodyVal As String) ', ByVal sMailID As String)
Dim newMail As Outlook.MailItem
Dim fdMail As Outlook.MAPIFolder

fdMail =
ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFol derOutbox)

'assign values to the newMail MailItem
newMail = fdMail.Items.Add(Outlook.OlItemType.olMailItem)
newMail.Subject = subjectVal
newMail.Body = bodyVal
newMail.To = toVal
newMail.SaveSentMessageFolder = fdMail
newMail.Send()
End Sub
End Class

[fniles]

Thank you for your reply.
The reason why I use Outlook is because with Outlook I can easily see all
the mails I sent in the "Sent" folder, but I can't do that easily with SMTP.
"Scott M." <sm**@nospam.nospamwrote in message
news:%2***************@TK2MSFTNGP06.phx.gbl...

Because you are accessing a mail client (Outlook), you will get Outlook's
built-in security. It comes up to prevent someone from writing a spam
virus that sends out gobs of email without the user knowing it.

I don't believe you can get around this since it is a security feature.
But, if you were to send mail (via code) directly from an SMTP server
(like MS Exchange) you wouldn't get that message.

-Scott

"fniles" <fn****@pfmail.comwrote in message
news:uu****************@TK2MSFTNGP03.phx.gbl...

>>I am using VB.NET 2008 and in the COM Tab I add a reference to "Microsoft
Outlook 11.0 Object Library".
When I send an email, a window with the following message (and buttons
Yes, No, Help) always pops up on the screen:
"A program is trying to automatically send e-mail on your behalf. Do you
want to allow this ?
If this is unexpected, it may be a virus and you should choose "No"."

Why does that window pop up, and how can I make it not popup ?
Thank you very much.
Main program
Private oMail As New OutlookMail

sub myForm_Load(...)
oMail.startOutlook()
end sub

Private Sub myForm_FormClosing(..)
oMail = Nothing
End Sub

Sub SendEmail(ByVal sMsg As String, ByVal sToEmail As String, ByVal
sSubject As String)
Dim swError As StreamWriter

If sToEmail <"" Then
oMail.SendEmail(sToEmail, sSubject, sMsg)
End If

End Sub

Private Sub cmdEmail_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdEmail.Click
SendEmail(txtLog.Text, txtEmails.Text, "my subject")
End Sub

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System
Public Class OutlookMail
Dim ns As Outlook.NameSpace
Public Function startOutlook()
'Return a reference to the MAPI layer
Dim ol As New Outlook.Application()

ns = ol.GetNamespace("MAPI")
ns.Logon(, , True, True)
End Function
Public Sub SendEmail(ByVal toVal As String, ByVal subjectVal As
String, ByVal bodyVal As String) ', ByVal sMailID As String)
Dim newMail As Outlook.MailItem
Dim fdMail As Outlook.MAPIFolder

fdMail =
ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFo lderOutbox)

'assign values to the newMail MailItem
newMail = fdMail.Items.Add(Outlook.OlItemType.olMailItem)
newMail.Subject = subjectVal
newMail.Body = bodyVal
newMail.To = toVal
newMail.SaveSentMessageFolder = fdMail
newMail.Send()
End Sub
End Class

[Scott M.]

When sending mail from a server, you must look at the server logs to see
what's been sent.
"fniles" <fn****@pfmail.comwrote in message
news:%2****************@TK2MSFTNGP03.phx.gbl...

Thank you for your reply.
The reason why I use Outlook is because with Outlook I can easily see all
the mails I sent in the "Sent" folder, but I can't do that easily with
SMTP.
"Scott M." <sm**@nospam.nospamwrote in message
news:%2***************@TK2MSFTNGP06.phx.gbl...

>Because you are accessing a mail client (Outlook), you will get Outlook's
built-in security. It comes up to prevent someone from writing a spam
virus that sends out gobs of email without the user knowing it.

I don't believe you can get around this since it is a security feature.
But, if you were to send mail (via code) directly from an SMTP server
(like MS Exchange) you wouldn't get that message.

-Scott

"fniles" <fn****@pfmail.comwrote in message
news:uu****************@TK2MSFTNGP03.phx.gbl...

>>>I am using VB.NET 2008 and in the COM Tab I add a reference to "Microsoft
Outlook 11.0 Object Library".
When I send an email, a window with the following message (and buttons
Yes, No, Help) always pops up on the screen:
"A program is trying to automatically send e-mail on your behalf. Do you
want to allow this ?
If this is unexpected, it may be a virus and you should choose "No"."

Why does that window pop up, and how can I make it not popup ?
Thank you very much.
Main program
Private oMail As New OutlookMail

sub myForm_Load(...)
oMail.startOutlook()
end sub

Private Sub myForm_FormClosing(..)
oMail = Nothing
End Sub

Sub SendEmail(ByVal sMsg As String, ByVal sToEmail As String, ByVal
sSubject As String)
Dim swError As StreamWriter

If sToEmail <"" Then
oMail.SendEmail(sToEmail, sSubject, sMsg)
End If

End Sub

Private Sub cmdEmail_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdEmail.Click
SendEmail(txtLog.Text, txtEmails.Text, "my subject")
End Sub

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System
Public Class OutlookMail
Dim ns As Outlook.NameSpace
Public Function startOutlook()
'Return a reference to the MAPI layer
Dim ol As New Outlook.Application()

ns = ol.GetNamespace("MAPI")
ns.Logon(, , True, True)
End Function
Public Sub SendEmail(ByVal toVal As String, ByVal subjectVal As
String, ByVal bodyVal As String) ', ByVal sMailID As String)
Dim newMail As Outlook.MailItem
Dim fdMail As Outlook.MAPIFolder

fdMail =
ns.GetDefaultFolder(Outlook.OlDefaultFolders.olF olderOutbox)

'assign values to the newMail MailItem
newMail = fdMail.Items.Add(Outlook.OlItemType.olMailItem)
newMail.Subject = subjectVal
newMail.Body = bodyVal
newMail.To = toVal
newMail.SaveSentMessageFolder = fdMail
newMail.Send()
End Sub
End Class

[Jan Hyde (VB MVP)]

"fniles" <fn****@pfmail.com>'s wild thoughts were released
on Tue, 10 Jun 2008 14:48:48 -0500 bearing the following
fruit:

>I am using VB.NET 2008 and in the COM Tab I add a reference to "Microsoft
Outlook 11.0 Object Library".
When I send an email, a window with the following message (and buttons Yes,
No, Help) always pops up on the screen:
"A program is trying to automatically send e-mail on your behalf. Do you
want to allow this ?
If this is unexpected, it may be a virus and you should choose "No"."

Why does that window pop up, and how can I make it not popup ?

There are lots of products out there, some free that disable
the security prompt - try mapilab.

J

>Thank you very much.
Main program
Private oMail As New OutlookMail

sub myForm_Load(...)
oMail.startOutlook()
end sub

Private Sub myForm_FormClosing(..)
oMail = Nothing
End Sub

Sub SendEmail(ByVal sMsg As String, ByVal sToEmail As String, ByVal sSubject
As String)
Dim swError As StreamWriter

If sToEmail <"" Then
oMail.SendEmail(sToEmail, sSubject, sMsg)
End If

End Sub

Private Sub cmdEmail_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdEmail.Click
SendEmail(txtLog.Text, txtEmails.Text, "my subject")
End Sub

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System
Public Class OutlookMail
Dim ns As Outlook.NameSpace
Public Function startOutlook()
'Return a reference to the MAPI layer
Dim ol As New Outlook.Application()

ns = ol.GetNamespace("MAPI")
ns.Logon(, , True, True)
End Function
Public Sub SendEmail(ByVal toVal As String, ByVal subjectVal As String,
ByVal bodyVal As String) ', ByVal sMailID As String)
Dim newMail As Outlook.MailItem
Dim fdMail As Outlook.MAPIFolder

fdMail =
ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFo lderOutbox)

'assign values to the newMail MailItem
newMail = fdMail.Items.Add(Outlook.OlItemType.olMailItem)
newMail.Subject = subjectVal
newMail.Body = bodyVal
newMail.To = toVal
newMail.SaveSentMessageFolder = fdMail
newMail.Send()
End Sub
End Class

--
Jan Hyde

https://mvp.support.microsoft.com/profile/Jan.Hyde