DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

VB 6.0 - Accepting value (email address)from Inputbox

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

VB 6.0 - Accepting value (email address)from Inputbox

Jul 19th, 2007

Hi everyone,
I have included a "Send mail" module in my vb module, but I want to accept the email address from an input box instead of hard-coding the recipients email address because the recipient may be different each given time.
Below is my code:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
SENDEMAIL:
 Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(0)
 
 OutlookMail.To = "giftxtian@yahoo.com"
 OutlookMail.Subject = "Project Status"
 OutlookMail.Body = "This is VB email test"
 
 If Len(MailAttach) = 0 Then
    OutlookMail.Attachments.Add MailAttach  '"C:\ProjectStatus.xls"
 End If
 
 OutlookMail.Display      'To display the email
 OutlookMail.Send         'To send the email
SENDEMAIL:
 Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(0)
 
 OutlookMail.To = "giftxtian@yahoo.com"
 OutlookMail.Subject = "Project Status"
 OutlookMail.Body = "This is VB email test"
 
 If Len(MailAttach) = 0 Then
    OutlookMail.Attachments.Add MailAttach  '"C:\ProjectStatus.xls"
 End If
 
 OutlookMail.Display      'To display the email
 OutlookMail.Send         'To send the email

How can I imbed the input box in the above routine?
Thanks.
GiftX

•

Join Date: Jun 2007

Posts: 49

Reputation: Mr.Wobbles is an unknown quantity at this point

Solved Threads: 2

Mr.Wobbles Mr.Wobbles is offline

Offline

Light Poster

Re: VB 6.0 - Accepting value (email address)from Inputbox

Jul 19th, 2007

you will need a textbox, in your form, and set the OutlookMail.To = to the textbox name and put a .text after it.

OutlookMail.To = textboxname.text

Mr.Wobbles~

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB 6.0 - Accepting value (email address)from Inputbox

Jul 19th, 2007

Actually,
I don't want a textbox control on my form. All my codes are embedded in a Command control which the users clicks and the whole process is executed.
Thanks anyway.
tgifgemini.

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Look up email addresses from Outlook address book

Jul 19th, 2007

Hi
is there a posibility to do a look up and use email address from Outlook Address book - using VB6.?
tgifgemini

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: VB 6.0 - Accepting value (email address)from Inputbox

Jul 20th, 2007

Hi tgif,

In Command Click, before u call the above module use InputBox say,

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Public EMailID as String
EMailID = InputBox("Enter EMail ID")
If Trim(EMailID) <> "" Then
   'Call The Send Function
End If
 
and change this to:
OutlookMail.To = EMailID
Public EMailID as String
EMailID = InputBox("Enter EMail ID")
If Trim(EMailID) <> "" Then
   'Call The Send Function
End If
 
and change this to:
OutlookMail.To = EMailID