By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,166 Members | 1,130 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,166 IT Pros & Developers. It's quick & easy.

From my VB 2005 express Form. Want to send EMail

P: n/a
I have made form for E-Mail. I have entered code but the Import system does
not work. It has squiggly line underneath it showing it is not communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have .Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my code to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
Dec 3 '06 #1
Share this Question
Share on Google+
14 Replies


P: n/a
The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:AF**********************************@microsof t.com...
>I have made form for E-Mail. I have entered code but the Import system does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have .Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.

Dec 3 '06 #2

P: n/a
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like you said.
I sent three e-mails as planned and Its the very first time I saw that program
work as I planned. Wow! I never knew that before. It Build fine. No errors.
I just saw one little problem I am trying to send the contents of the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to send also.
The + between the two did not work. How can I add the TextBox.Text plus the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"RobinS" wrote:
The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the Import system does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have .Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.


Dec 3 '06 #3

P: n/a
You have to use the selected item(s) in the item list. You're trying to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like you
said.
I sent three e-mails as planned and Its the very first time I saw that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to send also.
The + between the two did not work. How can I add the TextBox.Text plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:
>The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:AF**********************************@microsof t.com...
>I have made form for E-Mail. I have entered code but the Import system
does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have
.Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.



Dec 3 '06 #4

P: n/a
Thank you again RobinS. It makes sense what you are saying. I put your
suggestion in my code. I kept getting a squiggly line under the word
StringBuilder until I placed Imports.System.text at the top where I put the
other Imports.
Now I get a squiggly line under the first usage of If Form4Bio1.ListBox3.
I get one more squiggly line underneath theMessage.Body
I have not solved that yet. The reason I want to Append the two is I have
all the Drives listed in the ListBox. A:\ C:\ D:\ E:\ and F:\
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"RobinS" wrote:
You have to use the selected item(s) in the item list. You're trying to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like you
said.
I sent three e-mails as planned and Its the very first time I saw that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to send also.
The + between the two did not work. How can I add the TextBox.Text plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:
The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the Import system
does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have
.Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.


Dec 4 '06 #5

P: n/a
I'm glad I could help. If you hold your mouse over the entry
with the squiggly line under it, it will show a tooltip telling you
why it's got the squiggly line under it. I might have mis-typed
the name of the field, so make sure it's the right one.

Also, be sure you have Option Strict On and Option Explicit On;
this will help make sure you don't do any un-meant conversions,
and that all variables are defined.

To do this after your project is set up, open the project properties
(double-click on My Project) and then go to the Compile tab.

To set this permanently for all future projects, go to
Tools/Options/Project Solutions/VB Defaults and change it there.

Let us know if you have any other q's.

Robin S.
----------------------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:31**********************************@microsof t.com...
Thank you again RobinS. It makes sense what you are saying. I put your
suggestion in my code. I kept getting a squiggly line under the word
StringBuilder until I placed Imports.System.text at the top where I put
the
other Imports.
Now I get a squiggly line under the first usage of If Form4Bio1.ListBox3.
I get one more squiggly line underneath theMessage.Body
I have not solved that yet. The reason I want to Append the two is I have
all the Drives listed in the ListBox. A:\ C:\ D:\ E:\ and F:\
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:
>You have to use the selected item(s) in the item list. You're trying to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like you
said.
I sent three e-mails as planned and Its the very first time I saw that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to send
also.
The + between the two did not work. How can I add the TextBox.Text plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the Import
system
does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have
.Net
2.0 installed.
My form system just does not allow System nor recognize the
System.Net
Thanks for your kind help in advance. I do not know how I can get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.



Dec 4 '06 #6

P: n/a
Thank you RobinS. I tried your suggestions but can't get it to work yet.
I was getting a squiggly line below the StringBuilder word until I placed
another
Imports above .. Imports.System.Text Then the next squiggly line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have one more
squiggly line underneath theMessage I am still trying but don't see the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"RobinS" wrote:
You have to use the selected item(s) in the item list. You're trying to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like you
said.
I sent three e-mails as planned and Its the very first time I saw that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to send also.
The + between the two did not work. How can I add the TextBox.Text plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:
The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the Import system
does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have
.Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.


Dec 4 '06 #7

P: n/a
Hi RobinS I tried several things. I have a ListBox on the local form. I
switched to it.
Her is my current code listing. I was able to get rid of all squiggly lines
except one.
It was theMessage saying it had not been defined so I put a Dim statement in.
But I must have it representing a wrong type cause I still get the one
squiggle line.
Either on theMessage or the Dim. Thanks. If you see my problem please let
me know. Right now, My squiggly line says the theMessage.Body is not a member
of the dataObject.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"Professor Yonce" wrote:
Thank you RobinS. I tried your suggestions but can't get it to work yet.
I was getting a squiggly line below the StringBuilder word until I placed
another
Imports above .. Imports.System.Text Then the next squiggly line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have one more
squiggly line underneath theMessage I am still trying but don't see the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"RobinS" wrote:
You have to use the selected item(s) in the item list. You're trying to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like you
said.
I sent three e-mails as planned and Its the very first time I saw that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to send also.
The + between the two did not work. How can I add the TextBox.Text plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
>
>
"RobinS" wrote:
>
>The imports have to be above the Public Class statement.
>Does that help?
>>
>Robin S.
>---------------------
>"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
>message news:AF**********************************@microsof t.com...
>I have made form for E-Mail. I have entered code but the Import system
>does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.
>
Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.
>
' I XXX out certain entrys below just for this publication.
>
Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)
>
theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
>
I have tried Importing the System.Net.Mail but can't find it. I have
.Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?
>
>
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
>>
>>
>>
Dec 4 '06 #8

P: n/a
I forgot to give you the listing.
Dim sb As StringBuilder
Dim theMessage As DataObject
'Dim objSB As New Text.StringBuilder
sb.Append(Form4Bio1.TextBox5.Text)
'If Form4Bio1.ListBox1.ItemsSelected.Count 0 Then
If ListBox2.Items.Count 0 Then
For Each ListItem As Object In ListBox2.SelectedItems
sb.Append(", ")
sb.Append(ListItem.ToString)
Next
End If
'theMessage. = sb.ToString
theMessage.body = sb.ToString
sb = Nothing
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf

'You could append a carriage-return linefeed between
'the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
'Robin S.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"Professor Yonce" wrote:
Hi RobinS I tried several things. I have a ListBox on the local form. I
switched to it.
Her is my current code listing. I was able to get rid of all squiggly lines
except one.
It was theMessage saying it had not been defined so I put a Dim statement in.
But I must have it representing a wrong type cause I still get the one
squiggle line.
Either on theMessage or the Dim. Thanks. If you see my problem please let
me know. Right now, My squiggly line says the theMessage.Body is not a member
of the dataObject.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"Professor Yonce" wrote:
Thank you RobinS. I tried your suggestions but can't get it to work yet.
I was getting a squiggly line below the StringBuilder word until I placed
another
Imports above .. Imports.System.Text Then the next squiggly line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have one more
squiggly line underneath theMessage I am still trying but don't see the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"RobinS" wrote:
You have to use the selected item(s) in the item list. You're trying to
concatenate a Listbox.ObjectCollection to a string.
>
(And although + works, in VB most people use & so there's no
doubt about what it's doing.)
>
I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which should
work whether they can select 1 item or many.
>
I'd use a stringbuilder to build the string, for efficiency.
>
Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing
>
You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with ControlChars.CrLf.
>
Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like you
said.
I sent three e-mails as planned and Its the very first time I saw that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to send also.
The + between the two did not work. How can I add the TextBox.Text plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.


"RobinS" wrote:

The imports have to be above the Public Class statement.
Does that help?
>
Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the Import system
does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have
.Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
Was this post helpful to you?


--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
>
>
>
>
>
>
Dec 4 '06 #9

P: n/a
Just define theMessage as Object. What is it really, though? Is it an
Outlook component,
i.e. the body of the message? If so, you need to figure out what to define
it as, like
some kind of Outlook.Item or something like that? You can try "Object" and
see if
it works. Everything in .Net if an object, so that should work for most
anything, although
it's better to use something more specific.

Robin S.
---------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:B7**********************************@microsof t.com...
>I forgot to give you the listing.
Dim sb As StringBuilder
Dim theMessage As DataObject
'Dim objSB As New Text.StringBuilder
sb.Append(Form4Bio1.TextBox5.Text)
'If Form4Bio1.ListBox1.ItemsSelected.Count 0 Then
If ListBox2.Items.Count 0 Then
For Each ListItem As Object In ListBox2.SelectedItems
sb.Append(", ")
sb.Append(ListItem.ToString)
Next
End If
'theMessage. = sb.ToString
theMessage.body = sb.ToString
sb = Nothing
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf

'You could append a carriage-return linefeed between
'the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
'Robin S.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:
>Hi RobinS I tried several things. I have a ListBox on the local form. I
switched to it.
Her is my current code listing. I was able to get rid of all squiggly
lines
except one.
It was theMessage saying it had not been defined so I put a Dim statement
in.
But I must have it representing a wrong type cause I still get the one
squiggle line.
Either on theMessage or the Dim. Thanks. If you see my problem please
let
me know. Right now, My squiggly line says the theMessage.Body is not a
member
of the dataObject.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:
Thank you RobinS. I tried your suggestions but can't get it to work
yet.
I was getting a squiggly line below the StringBuilder word until I
placed
another
Imports above .. Imports.System.Text Then the next squiggly line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have one
more
squiggly line underneath theMessage I am still trying but don't see
the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

You have to use the selected item(s) in the item list. You're trying
to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which
should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with
ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like
you
said.
I sent three e-mails as planned and Its the very first time I saw
that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of
the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to
send also.
The + between the two did not work. How can I add the TextBox.Text
plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote
in
message news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the Import
system
does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get
System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I
have
.Net
2.0 installed.
My form system just does not allow System nor recognize the
System.Net
Thanks for your kind help in advance. I do not know how I can
get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant
and
Developer.


Dec 4 '06 #10

P: n/a
Thanks RobinS, I changed the Dim to Object and now get an Exception Null not
handled by : sb.Append(Form4Bio1.TextBox5.Text).
I must leave for the day and go do some Inspections. Will try again tonight
when I return. I am an Inspector parttime. Thanks again.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"RobinS" wrote:
Just define theMessage as Object. What is it really, though? Is it an
Outlook component,
i.e. the body of the message? If so, you need to figure out what to define
it as, like
some kind of Outlook.Item or something like that? You can try "Object" and
see if
it works. Everything in .Net if an object, so that should work for most
anything, although
it's better to use something more specific.

Robin S.
---------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:B7**********************************@microsof t.com...
I forgot to give you the listing.
Dim sb As StringBuilder
Dim theMessage As DataObject
'Dim objSB As New Text.StringBuilder
sb.Append(Form4Bio1.TextBox5.Text)
'If Form4Bio1.ListBox1.ItemsSelected.Count 0 Then
If ListBox2.Items.Count 0 Then
For Each ListItem As Object In ListBox2.SelectedItems
sb.Append(", ")
sb.Append(ListItem.ToString)
Next
End If
'theMessage. = sb.ToString
theMessage.body = sb.ToString
sb = Nothing
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf

'You could append a carriage-return linefeed between
'the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
'Robin S.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:
Hi RobinS I tried several things. I have a ListBox on the local form. I
switched to it.
Her is my current code listing. I was able to get rid of all squiggly
lines
except one.
It was theMessage saying it had not been defined so I put a Dim statement
in.
But I must have it representing a wrong type cause I still get the one
squiggle line.
Either on theMessage or the Dim. Thanks. If you see my problem please
let
me know. Right now, My squiggly line says the theMessage.Body is not a
member
of the dataObject.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:

Thank you RobinS. I tried your suggestions but can't get it to work
yet.
I was getting a squiggly line below the StringBuilder word until I
placed
another
Imports above .. Imports.System.Text Then the next squiggly line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have one
more
squiggly line underneath theMessage I am still trying but don't see
the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

You have to use the selected item(s) in the item list. You're trying
to
concatenate a Listbox.ObjectCollection to a string.
>
(And although + works, in VB most people use & so there's no
doubt about what it's doing.)
>
I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which
should
work whether they can select 1 item or many.
>
I'd use a stringbuilder to build the string, for efficiency.
>
Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing
>
You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
>
Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just like
you
said.
I sent three e-mails as planned and Its the very first time I saw
that
program
work as I planned. Wow! I never knew that before. It Build fine. No
errors.
I just saw one little problem I am trying to send the contents of
the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to
send also.
The + between the two did not work. How can I add the TextBox.Text
plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.


"RobinS" wrote:

The imports have to be above the Public Class statement.
Does that help?
>
Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote
in
message news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the Import
system
does
not work. It has squiggly line underneath it showing it is not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get
System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I
have
.Net
2.0 installed.
My form system just does not allow System nor recognize the
System.Net
Thanks for your kind help in advance. I do not know how I can
get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
Was this post helpful to you?


--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
>
>
>
>
>
>


Dec 4 '06 #11

P: n/a
But what is it ? What *is* "theMessage" ?

Robin S.
--------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:37**********************************@microsof t.com...
Thanks RobinS, I changed the Dim to Object and now get an Exception Null
not
handled by : sb.Append(Form4Bio1.TextBox5.Text).
I must leave for the day and go do some Inspections. Will try again
tonight
when I return. I am an Inspector parttime. Thanks again.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:
>Just define theMessage as Object. What is it really, though? Is it an
Outlook component,
i.e. the body of the message? If so, you need to figure out what to
define
it as, like
some kind of Outlook.Item or something like that? You can try "Object"
and
see if
it works. Everything in .Net if an object, so that should work for most
anything, although
it's better to use something more specific.

Robin S.
---------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:B7**********************************@microsof t.com...
>I forgot to give you the listing.
Dim sb As StringBuilder
Dim theMessage As DataObject
'Dim objSB As New Text.StringBuilder
sb.Append(Form4Bio1.TextBox5.Text)
'If Form4Bio1.ListBox1.ItemsSelected.Count 0 Then
If ListBox2.Items.Count 0 Then
For Each ListItem As Object In ListBox2.SelectedItems
sb.Append(", ")
sb.Append(ListItem.ToString)
Next
End If
'theMessage. = sb.ToString
theMessage.body = sb.ToString
sb = Nothing
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf

'You could append a carriage-return linefeed between
'the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
'Robin S.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:

Hi RobinS I tried several things. I have a ListBox on the local form.
I
switched to it.
Her is my current code listing. I was able to get rid of all squiggly
lines
except one.
It was theMessage saying it had not been defined so I put a Dim
statement
in.
But I must have it representing a wrong type cause I still get the
one
squiggle line.
Either on theMessage or the Dim. Thanks. If you see my problem please
let
me know. Right now, My squiggly line says the theMessage.Body is not a
member
of the dataObject.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:

Thank you RobinS. I tried your suggestions but can't get it to work
yet.
I was getting a squiggly line below the StringBuilder word until I
placed
another
Imports above .. Imports.System.Text Then the next squiggly
line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have one
more
squiggly line underneath theMessage I am still trying but don't
see
the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

You have to use the selected item(s) in the item list. You're
trying
to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which
should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in
Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with
ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote
in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just
like
you
said.
I sent three e-mails as planned and Its the very first time I
saw
that
program
work as I planned. Wow! I never knew that before. It Build fine.
No
errors.
I just saw one little problem I am trying to send the contents
of
the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to
send also.
The + between the two did not work. How can I add the
TextBox.Text
plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
"RobinS" wrote:

The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.com>
wrote
in
message
news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the
Import
system
does
not work. It has squiggly line underneath it showing it is
not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not
work.
I have the rest of code to try if and when I am able to get
System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it.
I
have
.Net
2.0 installed.
My form system just does not allow System nor recognize the
System.Net
Thanks for your kind help in advance. I do not know how I can
get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired
college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired
college
department
Director and Professor. Presently a Communications Consultant
and
Developer.




Dec 4 '06 #12

P: n/a
The place where it gives me my first squiggly line is:
theMessage.body = sb.ToString
The place that fails when I try to run program now is:
sb.Append(Form4Bio1.TextBox5.Text) It causes an Exceptionnothandled problem.

RobinS, I am trying to include the PC's Drives list in my E-Mail.
I never could find a routine that allowed me to place the Drives on a PC to
a Text box. I had to use a ListBox to place them. Now I want to send the
E-Mail with
the PC's info I gathered in the TextBox and append the Drive list which is
in the ListBox. That explains why I am trying to send E-Mail with PC info. I
was a few years ago a Technical Support Engineer for Novell Network Systems.
We sure needed this program I am making now that sends us an E-Mail with all
the PC info several years ago. I still have buddies working in that same
field and want to give it to them to use to make their job more accurate and
helpful. You helped me to solve the sending of E-Mails. That works perfect
now. It is just the content of that E-Mail that I am trying to make better
and work. Thanks again. I am having one other problem in the same E-Mail
alert program other than the Notice of what PC Drives ar installed. It is a
sub-directory of programs and files on a CD-Rom that I want to copy over from
the Cd-Rom to their C:\ Harddrive. It worked once when the Sub Directory was
empty. But now it won't work if I want to do it later to update a file for
the potential customer. Here is my listing of copydirectory. It gives me an
error exception now. I even tried eraseing the Sub-Directory and it still
gave me an exception error.

'Dim SourceDirectoryName As String = ("D:\RAutoBio")
'Dim DestinationDirectoryName As String = ("C:\RAutoBio")
My.Computer.FileSystem.CopyDirectory("D:\RAutoBio" , _
"C:\RAutoBio", True)
ProgressBar1.Show()
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf & ("
Copying Files in progress. ")
'showUI [, onUserCancel]))
'My.Computer.FileSystem.AllDialogs()
'showUI [, onUserCancel])
'showUI [, onUserCancel])

RobinS, The surprising thing about my above program is that it gives me the
exception error but goes ahead and copies the entire Cd-Rom sub-directory to
the C:\ drive. right where I want it. I erased all files and I did it again
and it worked
except I never saw a progress bar. Only the exception error. Thanks. I
have another button that checkes for the existance of my needed SubDirectory.
It works good. I also have still another button that will generate the
Sub-Directory if one does not exist. Thanks Professor Yonce..

--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
"RobinS" wrote:
But what is it ? What *is* "theMessage" ?

Robin S.
--------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:37**********************************@microsof t.com...
Thanks RobinS, I changed the Dim to Object and now get an Exception Null
not
handled by : sb.Append(Form4Bio1.TextBox5.Text).
I must leave for the day and go do some Inspections. Will try again
tonight
when I return. I am an Inspector parttime. Thanks again.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:
Just define theMessage as Object. What is it really, though? Is it an
Outlook component,
i.e. the body of the message? If so, you need to figure out what to
define
it as, like
some kind of Outlook.Item or something like that? You can try "Object"
and
see if
it works. Everything in .Net if an object, so that should work for most
anything, although
it's better to use something more specific.

Robin S.
---------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:B7**********************************@microsof t.com...
I forgot to give you the listing.
Dim sb As StringBuilder
Dim theMessage As DataObject
'Dim objSB As New Text.StringBuilder
sb.Append(Form4Bio1.TextBox5.Text)
'If Form4Bio1.ListBox1.ItemsSelected.Count 0 Then
If ListBox2.Items.Count 0 Then
For Each ListItem As Object In ListBox2.SelectedItems
sb.Append(", ")
sb.Append(ListItem.ToString)
Next
End If
'theMessage. = sb.ToString
theMessage.body = sb.ToString
sb = Nothing
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf

'You could append a carriage-return linefeed between
'the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
'Robin S.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:

Hi RobinS I tried several things. I have a ListBox on the local form.
I
switched to it.
Her is my current code listing. I was able to get rid of all squiggly
lines
except one.
It was theMessage saying it had not been defined so I put a Dim
statement
in.
But I must have it representing a wrong type cause I still get the
one
squiggle line.
Either on theMessage or the Dim. Thanks. If you see my problem please
let
me know. Right now, My squiggly line says the theMessage.Body is not a
member
of the dataObject.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:

Thank you RobinS. I tried your suggestions but can't get it to work
yet.
I was getting a squiggly line below the StringBuilder word until I
placed
another
Imports above .. Imports.System.Text Then the next squiggly
line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have one
more
squiggly line underneath theMessage I am still trying but don't
see
the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

You have to use the selected item(s) in the item list. You're
trying
to
concatenate a Listbox.ObjectCollection to a string.
>
(And although + works, in VB most people use & so there's no
doubt about what it's doing.)
>
I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which
should
work whether they can select 1 item or many.
>
I'd use a stringbuilder to build the string, for efficiency.
>
Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in
Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing
>
You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
>
Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote
in
message news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just
like
you
said.
I sent three e-mails as planned and Its the very first time I
saw
that
program
work as I planned. Wow! I never knew that before. It Build fine.
No
errors.
I just saw one little problem I am trying to send the contents
of
the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items to
send also.
The + between the two did not work. How can I add the
TextBox.Text
plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant
and
Developer.


"RobinS" wrote:

The imports have to be above the Public Class statement.
Does that help?
>
Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.com>
wrote
in
message
news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the
Import
system
does
not work. It has squiggly line underneath it showing it is
not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not
work.
I have the rest of code to try if and when I am able to get
System
working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it.
I
have
.Net
2.0 installed.
My form system just does not allow System nor recognize the
System.Net
Thanks for your kind help in advance. I do not know how I can
get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired
college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
Was this post helpful to you?


--
Professor Yonce, Retired commercial pilot. Also retired
college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
>
>
>
>
>
>


Dec 5 '06 #13

P: n/a

Again, I ask: what is "theMessage" ? Are you using Outlook automation
to send the e-mail? Or what? You need to define this to be what it is.
So if it's a part of outlook, it needs to be defined as (for example)
Outlook.Item.Body (or whatever it is).

You can get the PC's drive list by using DirectoryInfo. Just FYI.

What is the error you're getting on the Copy routine?

The progress bar won't change unless you change it. If you
are doing the Copy of the files in one command, you can't
change the progress bar. I would recommend changing
the mouse cursor to the hourglass if you're not already
doing that, so the user knows something is happening.

Robin S.
---------------------------------

"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:05**********************************@microsof t.com...
The place where it gives me my first squiggly line is:
theMessage.body = sb.ToString
The place that fails when I try to run program now is:
sb.Append(Form4Bio1.TextBox5.Text) It causes an Exceptionnothandled
problem.

RobinS, I am trying to include the PC's Drives list in my E-Mail.
I never could find a routine that allowed me to place the Drives on a PC
to
a Text box. I had to use a ListBox to place them. Now I want to send the
E-Mail with
the PC's info I gathered in the TextBox and append the Drive list which is
in the ListBox. That explains why I am trying to send E-Mail with PC info.
I
was a few years ago a Technical Support Engineer for Novell Network
Systems.
We sure needed this program I am making now that sends us an E-Mail with
all
the PC info several years ago. I still have buddies working in that same
field and want to give it to them to use to make their job more accurate
and
helpful. You helped me to solve the sending of E-Mails. That works perfect
now. It is just the content of that E-Mail that I am trying to make better
and work. Thanks again. I am having one other problem in the same E-Mail
alert program other than the Notice of what PC Drives ar installed. It is
a
sub-directory of programs and files on a CD-Rom that I want to copy over
from
the Cd-Rom to their C:\ Harddrive. It worked once when the Sub Directory
was
empty. But now it won't work if I want to do it later to update a file for
the potential customer. Here is my listing of copydirectory. It gives me
an
error exception now. I even tried eraseing the Sub-Directory and it still
gave me an exception error.

'Dim SourceDirectoryName As String = ("D:\RAutoBio")
'Dim DestinationDirectoryName As String = ("C:\RAutoBio")
My.Computer.FileSystem.CopyDirectory("D:\RAutoBio" , _
"C:\RAutoBio", True)
ProgressBar1.Show()
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf & ("
Copying Files in progress. ")
'showUI [, onUserCancel]))
'My.Computer.FileSystem.AllDialogs()
'showUI [, onUserCancel])
'showUI [, onUserCancel])

RobinS, The surprising thing about my above program is that it gives me
the
exception error but goes ahead and copies the entire Cd-Rom sub-directory
to
the C:\ drive. right where I want it. I erased all files and I did it
again
and it worked
except I never saw a progress bar. Only the exception error. Thanks. I
have another button that checkes for the existance of my needed
SubDirectory.
It works good. I also have still another button that will generate the
Sub-Directory if one does not exist. Thanks Professor Yonce..

--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:
>But what is it ? What *is* "theMessage" ?

Robin S.
--------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:37**********************************@microsof t.com...
Thanks RobinS, I changed the Dim to Object and now get an Exception
Null
not
handled by : sb.Append(Form4Bio1.TextBox5.Text).
I must leave for the day and go do some Inspections. Will try again
tonight
when I return. I am an Inspector parttime. Thanks again.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

Just define theMessage as Object. What is it really, though? Is it an
Outlook component,
i.e. the body of the message? If so, you need to figure out what to
define
it as, like
some kind of Outlook.Item or something like that? You can try "Object"
and
see if
it works. Everything in .Net if an object, so that should work for
most
anything, although
it's better to use something more specific.

Robin S.
---------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.comwrote in
message news:B7**********************************@microsof t.com...
I forgot to give you the listing.
Dim sb As StringBuilder
Dim theMessage As DataObject
'Dim objSB As New Text.StringBuilder
sb.Append(Form4Bio1.TextBox5.Text)
'If Form4Bio1.ListBox1.ItemsSelected.Count 0 Then
If ListBox2.Items.Count 0 Then
For Each ListItem As Object In ListBox2.SelectedItems
sb.Append(", ")
sb.Append(ListItem.ToString)
Next
End If
'theMessage. = sb.ToString
theMessage.body = sb.ToString
sb = Nothing
Form4Bio1.TextBox5.Text = Form4Bio1.TextBox5.Text & vbCrLf

'You could append a carriage-return linefeed between
'the items if you wanted to. Just replace the "," with
ControlChars.CrLf.
'Robin S.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:

Hi RobinS I tried several things. I have a ListBox on the local
form.
I
switched to it.
Her is my current code listing. I was able to get rid of all
squiggly
lines
except one.
It was theMessage saying it had not been defined so I put a Dim
statement
in.
But I must have it representing a wrong type cause I still get the
one
squiggle line.
Either on theMessage or the Dim. Thanks. If you see my problem
please
let
me know. Right now, My squiggly line says the theMessage.Body is
not a
member
of the dataObject.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"Professor Yonce" wrote:

Thank you RobinS. I tried your suggestions but can't get it to
work
yet.
I was getting a squiggly line below the StringBuilder word until
I
placed
another
Imports above .. Imports.System.Text Then the next squiggly
line
showed up
under If Form4Bio1.ListBox3 I can't get rid of it yet. I have
one
more
squiggly line underneath theMessage I am still trying but
don't
see
the
problem yet. thanks.
--
Professor Yonce, Retired commercial pilot. Also retired college
department
Director and Professor. Presently a Communications Consultant and
Developer.
"RobinS" wrote:

You have to use the selected item(s) in the item list. You're
trying
to
concatenate a Listbox.ObjectCollection to a string.

(And although + works, in VB most people use & so there's no
doubt about what it's doing.)

I think you should check and make sure they have selected items
before using the SelectedItem. I would try the following, which
should
work whether they can select 1 item or many.

I'd use a stringbuilder to build the string, for efficiency.

Dim sb as StringBuilder
sb.Append Form4Bio1.TextBox5.Text
If Form4Bio1.Listbox1.ItemsSelected.Count 0 Then
For Each ListItem as Object in
Form4Bio1.ListBox1.SelectedItems
sb.Append ", "
sb.Append ListItem.ToString
Next
End If
theMessage.Body = sb.ToString
sb = Nothing

You could append a carriage-return linefeed between
the items if you wanted to. Just replace the "," with
ControlChars.CrLf.

Robin S.
------------------------------------------
"Professor Yonce" <Pr************@discussions.microsoft.com>
wrote
in
message
news:FA**********************************@microsof t.com...
Yes RobinS.. It worked. Thank You, Thank You.
I put the Imports line above the Public Class statement just
like
you
said.
I sent three e-mails as planned and Its the very first time I
saw
that
program
work as I planned. Wow! I never knew that before. It Build
fine.
No
errors.
I just saw one little problem I am trying to send the
contents
of
the
TextBox.Text.
It went okay but I also wanted to add one more ListBox.Items
to
send also.
The + between the two did not work. How can I add the
TextBox.Text
plus
the
ListBox.Items to go in the e-mail? Thanks.
--
Professor Yonce, Retired commercial pilot. Also retired
college
department
Director and Professor. Presently a Communications Consultant
and
Developer.
"RobinS" wrote:

The imports have to be above the Public Class statement.
Does that help?

Robin S.
---------------------
"Professor Yonce" <Pr************@discussions.microsoft.com>
wrote
in
message
news:AF**********************************@microsof t.com...
I have made form for E-Mail. I have entered code but the
Import
system
does
not work. It has squiggly line underneath it showing it is
not
communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not
work.
I have the rest of code to try if and when I am able to
get
System
working.

' I XXX out certain entrys below just for this
publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find
it.
I
have
.Net
2.0 installed.
My form system just does not allow System nor recognize
the
System.Net
Thanks for your kind help in advance. I do not know how I
can
get my
code
to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired
college
department
Director and Professor. Presently a Communications
Consultant
and
Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired
college
department
Director and Professor. Presently a Communications
Consultant
and
Developer.





Dec 5 '06 #14

P: n/a

--
nothing
"Professor Yonce" wrote:
I have made form for E-Mail. I have entered code but the Import system does
not work. It has squiggly line underneath it showing it is not communicating.
It Will not build.

Public Class Form3Bio1
System.Net.Mail.SmtpClient
Imports System.Net.Mail ' This line before ' does not work.
I have the rest of code to try if and when I am able to get System working.

' I XXX out certain entrys below just for this publication.

Dim emailSender As SmtpClient
Dim theMessage As MailMessage
Dim SHost As String = ("smtp.XXXXX.com")
Dim Passwd As String = ("Harold45")
Dim Recv As String = ("In****@XXXXXX.Com")
Dim Sndr As String = ("Ha****@XX.Com")
Dim Body As String = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)
emailSender = New System.Net.Mail.SmtpClient( _
SHost)

theMessage = New MailMessage
theMessage.From = New MailAddress(Sndr)
theMessage.To.Add(Recv)
theMessage.Subject = (Form4Bio1.TextBox4.Text)
theMessage.password = (Passwd)
theMessage.Body = (Form4Bio1.TextBox5.Text) +
(Form4Bio1.ListBox1.Items)

I have tried Importing the System.Net.Mail but can't find it. I have .Net
2.0 installed.
My form system just does not allow System nor recognize the System.Net
Thanks for your kind help in advance. I do not know how I can get my code to
recognize Imports.System.Net.Mail.
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
Was this post helpful to you?
--
Professor Yonce, Retired commercial pilot. Also retired college department
Director and Professor. Presently a Communications Consultant and Developer.
Jun 19 '07 #15

This discussion thread is closed

Replies have been disabled for this discussion.