Sending email from within app

[John]

Hi

How does one send email from within a vb.net app?

Thanks

Regards

[John]

Many thanks cj for wonderful examples. How do attachments work?

Many Thanks

Regards

"cj" <[e-mail] amwrote in message
news:%2******** ********@TK2MSF TNGP06.phx.gbl. ..

Here's the other. I haven't used it in 2005 yet but in 2003 I did. I
used it to give a user of an app the option to send the contents of say a
text box to someone. It brings up their default mail and puts the
contents and subject in but leaves who they're sending it to blank and
allows them to edit the message etc and send it themselves.

My 2005 example in the previous email is used by some of my programs to
wake us up in the middle of the night with an email to our cell phones
because something happened it didn't like. :( In other words it is a
totally automatic generate and send of a message.

I don't quite remember how the sendto: works any more--it didn't do what I
wanted.

There are other ways to do this but these are all the examples I have.
Private Sub SndMAPIMail(ByV al subj As String, ByVal msg As String)
Try
Dim myMAPISession As New MSMAPI.MAPISess ion
Dim myMAPIMessage As New MSMAPI.MAPIMess ages

myMAPISession.D ownLoadMail = False
myMAPISession.S ignOn()
myMAPISession.N ewSession = True

myMAPIMessage.S essionID = myMAPISession.S essionID

myMAPIMessage.C ompose()

myMAPIMessage.M sgSubject = subj
myMAPIMessage.M sgNoteText = msg

Try
myMAPIMessage.S end(True)
Catch ex As Exception
If Not ex.Message = "User cancelled process" Then
MessageBox.Show (ex.Message)
End If
End Try

myMAPISession.S ignOff()
myMAPISession.N ewSession = False
Catch
End Try
End Sub
cj wrote:

>Here's a simple way

Public Sub StartMail(ByVal [To] As String, Optional ByVal subj As String
= "", Optional ByVal Body As String = "")
Try
Dim mailProcess As New ProcessStartInf o
mailProcess.Use ShellExecute = True
mailProcess.Fil eName = "mailto:" & [To] & "?subject=" & subj
& "&body=" & Body
Process.Start(m ailProcess)
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try
End Sub

Here's my favorite way but it's 2005 only

Dim msg As New System.Net.Mail .MailMessage
Dim smtp As New System.Net.Mail .SmtpClient
msg.From = New System.Net.Mail .MailAddress("m [e-mail]")
msg.To.Add("bo* @ACME.com")
msg.Subject = "Test Msg"
msg.Body = "Can you hear me now?"
smtp.Host = "smtp.myco. com"
smtp.Port = 25
smtp.DeliveryMe thod = Net.Mail.SmtpDe liveryMethod.Ne twork
smtp.Credential s = New
System.Net.Net workCredential( "[e-mail] m", "mypass")
smtp.Send(msg)
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try

Got one more I'll find later.
John wrote:

>>Hi

How does one send email from within a vb.net app?

Thanks

Regards

[Jeff]

"Spam Catcher" <sp**********@r ogers.comwrote in message
news:Xn******** *************** ***********@127 .0.0.1...

cj <[e-mail] amwrote in news:OH******** ******@TK2MSFTN GP05.phx.gbl:

>I use Thunderbird and most folks use Outlook here and it works fine for
us as I have it in the example. Fine being the way I want it too that
is. Seems I do recall something that was different in the way Outlook
and Thunderbird responded to it but can't remember what.

MAPI is Messaging API... if you have an antivirus it often blocks MAPI
commands. MAPI can only relied on in an enterprise environment in which
you
have complete control of the computers.

Antivirus, at least the McAfee on my server, will also block messages that
aren't in MAPI.

I just went through that yesterday. McAfee was set to permit sending by the
popular email programs, and I had to add two extra exceptions for the .net
application - one when running the app directly in the development
environment, and another when running over the web. After poking around in
McAfee, I found a log stating what it was blocking, and then I added it to
the list of exceptions under McAfee's setting dealing with the block of
"mass email worms on port 25"

Jeff
--
Posted via a free Usenet account from http://www.teranews.com

[cj]

I haven't done much with them. But, I know it can be done. If I was
you I'd cut and paste my examples into a test prg and when they work try
adding attachments in a similar manner to recipients or the subject and
body text. I have a program that I use for testing little bits of code
and ideas. It's a form with 36 buttons currently and a couple of
textboxes and labels. Each button was added to test a bit of code.
When I wrote the apps that send email I made a button in the test
program and played with the code there until I got the button to send a
message. That is where the code I sent you came from. It'll be Monday
before I can look into attachments--and that's if I'm not swamped with
problems when I get in the office. Good Luck.

John wrote:

Many thanks cj for wonderful examples. How do attachments work?

Many Thanks

Regards

"cj" <[e-mail] amwrote in message
news:%2******** ********@TK2MSF TNGP06.phx.gbl. ..

>Here's the other. I haven't used it in 2005 yet but in 2003 I did. I
used it to give a user of an app the option to send the contents of say a
text box to someone. It brings up their default mail and puts the
contents and subject in but leaves who they're sending it to blank and
allows them to edit the message etc and send it themselves.

My 2005 example in the previous email is used by some of my programs to
wake us up in the middle of the night with an email to our cell phones
because something happened it didn't like. :( In other words it is a
totally automatic generate and send of a message.

I don't quite remember how the sendto: works any more--it didn't do what I
wanted.

There are other ways to do this but these are all the examples I have.
Private Sub SndMAPIMail(ByV al subj As String, ByVal msg As String)
Try
Dim myMAPISession As New MSMAPI.MAPISess ion
Dim myMAPIMessage As New MSMAPI.MAPIMess ages

myMAPISession.D ownLoadMail = False
myMAPISession.S ignOn()
myMAPISession.N ewSession = True

myMAPIMessage.S essionID = myMAPISession.S essionID

myMAPIMessage.C ompose()

myMAPIMessage.M sgSubject = subj
myMAPIMessage.M sgNoteText = msg

Try
myMAPIMessage.S end(True)
Catch ex As Exception
If Not ex.Message = "User cancelled process" Then
MessageBox.Show (ex.Message)
End If
End Try

myMAPISession.S ignOff()
myMAPISession.N ewSession = False
Catch
End Try
End Sub
cj wrote:

>>Here's a simple way

Public Sub StartMail(ByVal [To] As String, Optional ByVal subj As String
= "", Optional ByVal Body As String = "")
Try
Dim mailProcess As New ProcessStartInf o
mailProcess.Use ShellExecute = True
mailProcess.Fil eName = "mailto:" & [To] & "?subject=" & subj
& "&body=" & Body
Process.Start(m ailProcess)
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try
End Sub

Here's my favorite way but it's 2005 only

Dim msg As New System.Net.Mail .MailMessage
Dim smtp As New System.Net.Mail .SmtpClient
msg.From = New System.Net.Mail .MailAddress("m [e-mail]")
msg.To.Add("bo* @ACME.com")
msg.Subject = "Test Msg"
msg.Body = "Can you hear me now?"
smtp.Host = "smtp.myco. com"
smtp.Port = 25
smtp.DeliveryMe thod = Net.Mail.SmtpDe liveryMethod.Ne twork
smtp.Credential s = New
System.Net.Ne tworkCredential ("[e-mail] m", "mypass")
smtp.Send(msg)
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try

Got one more I'll find later.
John wrote:
Hi

How does one send email from within a vb.net app?

Thanks

Regards

[rowe_newsgroups]

Many thanks cj for wonderful examples. How do attachments work?

For the System.Net.Mail class:

http://www.systemnetmail.com/faq/3.4.1.aspx

For the System.Web.Mail class:

http://www.systemwebmail.com/faq/2.3.aspx

Thanks,

Seth Rowe

[Spam Catcher]

"Jeff" <no**@nothingX. comwrote in
news:46******** **************@ free.teranews.c om:

Antivirus, at least the McAfee on my server, will also block messages
that aren't in MAPI.

Isn't it better to run the "mailto:xx*@xxx .com" command instead? That way
the OS will automatically launch the default mail program without the need
to worry about the AV?