Need To Send An Email Using The "From" Email Address Field
Hi there everyone,
I have an issue with I would have thought would have been easy, but i need the abilty set the From email address field in Outlook. I can set To, CC, and even BC, but can not seem to set the From field. I am hoping i am having a goldfish moment.
Below is a snippet of the code i am using, and i have tried using, .from, .sender but can't seem to get it to work. Any suggestions would be hugely appreciated, as this is important.
As i said, I am hoping it is easy, and i am just have a brain fade.
---------------------- Dim objOutlook Dim objOutlookMsg Dim olMailItem Dim objAttachements ' Create the Outlook object and the new mail object. Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) ' Define mail recipients
objOutlookMsg.Sender = "sender@somewhere.com.au" objOutlookMsg.To = "to@somewheredifferent.com.au"
Again, any thoughts?
Thanks Graeme
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Change "From" Address When Sending Email
First I'm very new to VB..
next, I've read through a lot of the email posts.. with no luck...
at this time i can send emails from VB using the MAPI setup in VB and have it working...
Private Sub comSend_Click()
MsgSubject = "hello"
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = txtTo.Text
MAPIMessages1.MsgSubject = "testing emails in Visual basic"
MAPIMessages1.MsgNoteText = txtBody.Text
MAPIMessages1.Send True
MAPISession1.SignOff
End Sub
this is the main part of the code i'm using......
using windoes 98se with outlook express....
I want to be able to change my email address from the one from my ISP to one from hotmail or yahoo
(that is I only what those i'm sending to to only have a hotmail address to reply to)
also note that I may be sending about 100 emails at a time..
any help tips even a little coding ... thanks...
How Do You Pull The Network Username To Default In The "FROM" Field When Sending Email...
I have a form set up in Excel with a submit button. I want it to be able to pull up the person's username/logon and default it into the FROM field in the email. Right now I have it set up so that the user enters their username onto the form and it sends it that way just fine, but they can enter someone else's name and it will send it all the same, as if the other person sent the email. Thanks in advance for the help.
Ability To Select Email Address From Outlook Global Email Address Folder
Hello everyone,
I am using VB 6.0 - My objective is send email from my VB application: hence, I want to be able to call the Outlook global email address folder and select my desired recipient from the list either by "double-clicking" or "single-clicking" on the list to transfer to email address to my variable "EmailID"
I want to be able to select my desired email address from the list.
Note: "lvw" is the name of the ListView control on my VB form.
I don't know what I'm doing wrong because this line of code is giving me "runtime error 380 - Invalid property value".
"lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address"
Below is my entire code:
Code:
Dim OutlookApp As Outlook.Application
Dim OutlookNameSpace As Outlook.NameSpace
Dim OutlookAddressList As Outlook.AddressList
Dim OutlookAddressEntry As Outlook.AddressEntry
Dim OutlookMailItem As Outlook.MailItem
Dim i As Long
Dim EmailID As String
Dim OutlookAttachment As Outlook.Attachment
Dim MailAttach As String
MailAttach = "C:ProjectStatus.xls"
Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")
For Each OutlookAddressList In OutlookNameSpace.AddressLists
For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
lvw.ListItems.Add , , OutlookAddressEntry.Name
lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
lvw.ListItems(lvw.ListItems.Count).SubItems(2) = OutlookAddressEntry.ID
lvw.ListItems(lvw.ListItems.Count).Tag = OutlookAddressEntry.ID
Next
Next
EmailID = "????????????????????????"
OutlookMailItem.To = EmailID
OutlookMailItem.Subject = "Project Status"
OutlookMailItem.Body = "This is VB email test"
If Len(MailAttach) > 0 Then
OutlookMailItem.Attachments.Add (MailAttach)
End If
'OutlookMailItem.Display 'To display the email
OutlookMailItem.Send 'To send the email
End Sub
Thanks,
tgifgemini
Ability To Select Email Address From Outlook Global Email Address Folder
Hello everyone,
I am using VB 6.0 - My objective is send email from my VB application: hence, I want to be able to call the Outlook global email address folder and select my desired recipient from the list either by "double-clicking" or "single-clicking" on the list to transfer to email address to my variable "EmailID"
See my entire codes below:
Thanks.
Code:
lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
lvw.ListItems(lvw.ListItems.Count).SubItems(2) = OutlookAddressEntry.ID
lvw.ListItems(lvw.ListItems.Count).Tag = OutlookAddressEntry.ID
Also, I want to be able to select my desired email address from the list.
Below is my entire code:
Code:
Dim OutlookApp As Outlook.Application
Dim OutlookNameSpace As Outlook.NameSpace
Dim OutlookAddressList As Outlook.AddressList
Dim OutlookAddressEntry As Outlook.AddressEntry
Dim OutlookMailItem As Outlook.MailItem
Dim i As Long
Dim EmailID As String
Dim OutlookAttachment As Outlook.Attachment
Dim MailAttach As String
MailAttach = "C:ProjectStatus.xls"
Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")
For Each OutlookAddressList In OutlookNameSpace.AddressLists
For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
lvw.ListItems.Add , , OutlookAddressEntry.Name
lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
lvw.ListItems(lvw.ListItems.Count).SubItems(2) = OutlookAddressEntry.ID
lvw.ListItems(lvw.ListItems.Count).Tag = OutlookAddressEntry.ID
Next
Next
EmailID = "????????????????????????"
OutlookMailItem.To = EmailID
OutlookMailItem.Subject = "Project Status"
OutlookMailItem.Body = "This is VB email test"
If Len(MailAttach) > 0 Then
OutlookMailItem.Attachments.Add (MailAttach)
End If
'OutlookMailItem.Display 'To display the email
OutlookMailItem.Send 'To send the email
End Sub
Thanks,
GiftX
How To Change Boolean Field From Displaying "0" And "-1" To "Yes" And "No"
Hey there,
I have a data report, which displays a few fields from an Access table, one which is a boolean. At the moment if the boolean value is True, then on the data report it displays "-1", and if False "0".
How can I change this so it displays "Yes" if true and "No" if False?
Would be really grateful for any help.
Thanks.
(Winsock) POP Command "Retr" Is Not Retrieveing Email Completely...
I am using Winsock control to connect my mail server.
I am using "DataArrival(ByVal bytesTotal As Long) " method of Winsock to get data from Server.
my code is ............>
pop3.Connect sMaiLServer, 110
--------
--------
pop3. SendData "User " & uid 'To check User name
--------
------
pop3. SendData "pass " & pwd ''To check Password
--------
------
pop3. SendData "stat" 'To check How many mail in my inbox
--------
------
pop3. SendData "Retr 1" 'To Retrive first mail
--------
--------.........................
I am using GetData methos to get data from Server
Code for this is pop3. GetData strData
If the mail content is large, then only sonme part of mail is coming
Plz tell anyone to get complete email from server...
This is very URGENT..
Library Not Found For "UCase$"??? All I Did Is Email My Project Home On AOL...
I'm having a serious delima here everyone. ok, here is deal. Please help.
I sent my project from my work computer to my home computer threw e-mail(AOL). When I open up the project in VB6 at home and RUN the program VB gives me an ERROR that says "Object or Library not Found!"! What i do not understand is that it HIGHLIGHTS the VB Built-In UCASE statement!
I don't get whats wrong. I checked the projects references and i believe all the needed references are checked.
here is my computer specs...
[ HOME COMPUTER ] [ WORK COMPUTER ]
Window XP Home Edition Windows 98 Second Edition
Athalon 1.6GHZ Pentium III
256MB SDRAM 96MB SDRAM
HELP! ErrorReport.dll - Error Code: 0xC00402CE - "Email"
Hi,I have this error to send App. information & Err. inforamtion with ErrorReport.dll(Private App.).
IIS 5.0VB 6.0
Error:
Unable to deliver this message because the follow error was encountered: "Error is processing file in pickup directory.".
The specific error code was 0xC00402CE.
Code:
Code:
Private Sub VB_Frm_Error_Btn_SendError_Click()
On Error Resume Next
VB_Frm_Error_Btn_SendError.Enabled = False
Dim objNewMail As CDONTS.NewMail
Set objNewMail = CreateObject("CDONTS.NewMail")
With objNewMail
.From = "error-report@" & VB_Frm_Error_TxtBx_ApplicationTitle & ".exe"
.To = "ypy_design@yahoo.co.uk"
.Subject = "ErrorReport.dll: " & VB_Frm_Error_TxtBx_ApplicationTitle
.Body = "Application information:" & vbCrLf & "App. title: " & VB_Frm_Error_TxtBx_ApplicationTitle & " - " & "App. description: " & VB_Frm_Error_TxtBx_ApplicationDescription & vbCrLf & "App. EXE name: " & VB_Frm_Error_TxtBx_ApplicationEXEName & " - " & "App. version: " & VB_Frm_Error_TxtBx_ApplicationVersion & vbCrLf & vbCrLf & "Error information:" & vbCrLf & "Form name: " & VB_Frm_Error_TxtBx_FormName & " - " & "Title code: " & VB_Frm_Error_TxtBx_TitleCode & vbCrLf & "Pub. Err. number: " & VB_Frm_Error_TxtBx_PublicErrorNumber & " - " & "Pub. Err. description: " & VB_Frm_Error_TxtBx_PublicErrorDescription & vbCrLf & "Prv. Err. number: " & VB_Frm_Error_TxtBx_PrivateErrorNumber & " - " & "Prv. Err. description: " & VB_Frm_Error_TxtBx_PrivateErrorDescription
.Importance = 2
.Send
End With
Set objNewMail = Nothing
VB_Frm_Error_Btn_Cancel.Caption = "Close"
End Sub
Eliminating ">" Characters In Outlook Email Messages
I am trying to create a rule (i.e. Macro) in Outlook to eliminate those annoying ">" characters found in many forwarded/replied to text-based emails. I've already tested the following Sub and Function that seem to work well with a hard-coded message string, but I can't figure out how to read the body of my incoming email messages into this macro. Here's the code:
====================================================
Public Sub ScrubGTSign()
Dim myString As String
Dim OldCharacter As String
Dim NewCharacter As String
Dim objMailItem As MailItem
myString = ">>Hello, how are you?"
OldCharacter = ">"
NewCharacter = ""
MsgBox myString, , "Before"
myString = ReplaceACharacter(InWhat:=myString,
FindWhat:=OldCharacter, _
ReplaceWith:=NewCharacter)
MsgBox myString, , "After"
End Sub
====================================================
Function CharacterSwap(InWhat As String, FindWhat As String,
ReplaceWith As String) As String
Dim StartAtCharacter As Long
StartAtCharacter = 1
StartAtCharacter = InStr(StartAtCharacter, InWhat, FindWhat)
Do While StartAtCharacter <> 0
InWhat = Left$(InWhat, StartAtCharacter - 1) _
& ReplaceWith & Mid$(InWhat, StartAtCharacter + 1)
StartAtCharacter = InStr(StartAtCharacter, InWhat, FindWhat)
Loop
CharacterSwap = InWhat
End Function
====================================================
Can anyone help?
Saving An Email To "Drafts" Using MapiMessages And MapiSession
When using the ".Save" in MapiMessages instead of ".Send", it saves in the Inbox instead of the Drafts folder. Is there an easy way to make it save into the Drafts instead? (Like it probably should!)
It has to be using Mapi, not using Outlook objects, since our company is in transition between Lotus Notes and Outlook, there are people using both.
Thanks!
-Al
Help With Adding Buttons To Form "print And Email"
Looking for some help,
Took VB6 basic several years ago, but hoping to find some help on a word template I am creating. I want to add a print command button on the form as well a button to open my email include the specified email address, populate the subject line with some text, and attach the subject form.
I believe printing the form with some code should be fairly easy (if I could remember how)
the second button I want sounds easy but I am really lost on where to start.
Got some help already from a response ASSPIN had sent, but still need to figure out how to attach the form.
// This code will cause an e-mail to be sent
Set ol = CreateObject("Outlook.Application")
Set olns = ol.GetNamespace("MAPI")
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = "support@address.com"
.Subject = "Service Support Request"
.body = "Request form attached"
.Send
End With
Any help would be appreciated
Outlook "Email Accounts" - What Control?
When you view your existing email accounts in Outlook there is a control that contains the name and type of each account. What control is that and how do I use it?
"Email Made Easy" Via SMTP
SMTP wrapper control
Simple Mail Transfer Protocol control, ready to drop onto your form, and send email with. Easy
So... after the recent avalanche of requests for simple mail code, I knocked this up. It is a control that you can add to your projects. You then set a few properties, call the .SendMail method, and bingo.
It doesn't support attachments, and you will need access to an SMTP server, but mostly, your ISP will provide you with free access to theirs. Just mail them and ask for the correct server address.
Enjoy.
Code To "Preview" An Email Upon Receipt
Hello,
I am trying to come up with some vba code that will show the sender, subject and the first 500 characters of new incoming mail in my outlook. I have looked at the NewMail info in help and followed the instructions as closely as I could fjor the example, but I can't get the help example to work. Any help to get me started would be greatly appreciated.
THanks,
CHuck
Change "FROM" Control When Sending Email
Is there a control to change the "FROM" property when sending an email using outlook.
With myMail
.SenderName = "Admin" <- (This give me error message, cannot change read only)
.To = "email@mail.com" 'emailAdd
.Subject = "Test"
.Body = strNote
.Send
End With
Thanks.
How Do I Check For The "Default Email Client"
you know how whenever you startup a newly installed email client it checks to see if it's the default, and if not it asks if you want to make the default.
how would i put this in code? when my app starts i want it to check and see if it's the default email client. and if not ask.
Nathan
How To Stop "sending Email" Warning
How can I stop Outlook from warning me that my app is sending an email using MAPI? Doesnt have to be a programatic solution ... if there is a setting I can change in Outlook that would suffice. Thanks for any help!
Send Information To An Email Address
i have a small program where people can insert theyre email address and then a message. (sort of like an external email-er) what i want to happen is when the apply button is clicked to email all the information in the message box to my email. i have the 2 text labels (1 txtUser and txtMsg) 2 labels (lblUser and lblMsg) and 3 command buttons (reset - deletes all text in message and email text boxes/exit - selfexplanatory/apply - this will email the email address nd the message to me (for this case i will make my email me.domain.co.uk))
i cant work out the apply bit
- i want my email to be recieved as "User: " & lblUser.Caption & "said: " & lblMsg.caption
and i want to make sure that on apply it checks to make sure that the email is a valid address
please help cheers
ps. i am TANOVcomputers but i have lost my password and need help urgently so i will be back on TANOVcomputers as soon as my pass gets emailed to me :@ lol
Send Info To Email Address
hey. on a form i have 4 text boxes..and when the user clicks a command button..
How can i make it send the details entered into the text boxes- to an email address..or something like that?
"paste" From Listview To Email
Hi
Is there an easy way of moving the contents from a listview control to an email during runtime?
I've got a button, pressing it should make outlook popup (done that) with a fresh email, then fill it with the stuff from the listview control.
Sending Email To "another Place"
We have established that if email is sent to a traditional Microsoft Email Client, you cannot retrieve the emails programatically without dealing with the "someone is trying to take control of your email" message. (which needs an ok click to continue on)
So is there another way to do this ?
What are the chances of having emails sent to an FTP address (which I could monitor and retrieve data if it exists)
Ideally, the users would just send an email as normal but it actually goes to a web site address instead of being picked up by the tradition email clients
I've heard of sites which operate like this but don't quite understand how its done
Thanks
A Program That Can Send An Email To My Address When They Connect It
I have a doubt that my friends using Internet connection in my room computer with out my permission when I gone to abroad. So I want to create a program that can send an email to my address when they connect it. How can I create it?
Note: I have only (hotmail, Yahoo, Gmail) email accounts. Because, I am a student. So I haven’t any payable email addresses
Pick Email Address From Table And Send
I'm searching the Database as I type this message but if u have a simple code for this plz post.
Need code that will
Look in table and select the email field and send a file to that email address.
Need help fast
Send Email Via Outlook With Different Reply Address
In Outlook 2000 you can change the reply email address when sending email - I am trying to create a VB mail forwarding app. Can I change the reply to : email address when sending emails from VB via Outlook/Exchange?
Thanks in advance.
C:O)
Outlook 2002 - Choice Of Email Address To Send FROM
I am using Outlook 2002 which has a Microsoft patch that pops up a message box whenever you try to send an Email by using a VB program to control it. I have overcome this by using the Redemption COM.
http://www.dimastr.com/redemption/
BUT does anybody know how to choose the Email address I send from ( I have several different Email addresses set up ) whether using Redemption or by straightforward Outlook?
Many thanks
Bob
PS IS this forum screwed up? I have twice posted a reply to an earlier thread which has come up and then disappeared ( ie my reply has gone - but when I search against my user name the thread comes up )
How To Read Address Book And Send Email Reminders In VB?
hi - I need to do these things..
1. Access Exchange server Address book and add records in
database. I wan this to happen every night.
2. I want to send mails from VB to a user and i want
mails to go every 3 hours..like a reminder.
How can i do it using vb?
thanks
Ricky.
.
Send Email From VB To Outlook - How To Code - Address A Copy To ...
Hi - here I post a new question
I'm now able to export a dokument out of VB to outlook.
On my VB form there is a field to enter a complete email address "copy to: ......".
Question: What is the RDC command to copy a recipient ?
Report.ExportOptions.MailCcList = "Lupo Mai" does not work - I suppose, the given name(s)
must be stored in "Outlook - Contacs" ???
Who can easely answer this question ?
Thanks - Lupo Mai - Germany
How To Read Address Book And Send Email Reminders In VB?
hi - I need to do these things..
1. Access Exchange server Address book and add records in
database. I wan this to happen every night.
2. I want to send mails from VB to a user and i want
mails to go every 3 hours..like a reminder.
How can i do it using vb?
thanks
Ricky.
.
.AddNew, .Update "memo" And "text" Jet Field Problem...
I'm adding a new record to a recordset, but when I try to write data to a "memo" field after writing data to a "text" field in that particular recordset, the memo field turns up empty in the database, but the "text' field contains the correct data... If I write the "memo" field 1st then both the "memo" fields and the "text" fields contain the correct data that I've written to them. I'm using jet tables.
Thanks!
dpdutke
Send A Email (with Optional Attachment) To Everybody In Outlook Address Book
Hi im trying to program an app for my office to simpilize sending emails to everybody in our address book (with optional attachment) to everybody in outlook address book.
Ive looked around for source code but cant find any thing that works.
(Note: I know you can do it in Outlook but not everybody in our office is bight )
Any source code or links would be great.
Thanks
How To Make Lable Of Address And How To Connect Vb To Outlook For Send Email
hi all
i m making a address book software but problem occuring
after searching any person i want want to make a label as a address it save in my database as address,city,pincode
next i want to send email to all person using outlook
when i click on selected email they all come back in out look
how it is possible..........
help me.....
thanks..........
[VB6] "This Email Will Self-destruct" Possible?
Hello
My friend and I were joking around last night about emails and self destruct messages and we thought it would be cool to have an email "self-destruct" after a specific amount of time.
I know you can embed html and other code into microsoft Outlook and outlook express. Does anyone know if there is any VB code that you can use to tell outlook to delete the email message after a certain amount of seconds/minutes?
We are just curious if anyone knows. Thank you.
Putting In Sender Email Address In The Email
Hi Guyz, i have a code to send email..im not sure how to put sender when the mail is sent..
i tried using .sender, but it says object not supported..
im using microsoft exchange smtp to send email..
following is the code..
Code:
Sub GEN_EMAIL()
Dim MyBody As Variant
Dim OutApp As Object
Dim OutMail As Object
Dim TabRows As Integer
Dim TabCells As Integer
Dim TabValue As Variant
Dim MyArray(2, 2) As Variant
MyArray(1, 1) = "ABC"
MyArray(1, 2) = "DEF"
MyArray(2, 1) = "GHI"
MyArray(2, 2) = "JKL"
' --Pass your values into MyArray(x,y)
' --Values above are for demonstration only
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
MyBody = "<p><font face=arial size=2>"
MyBody = "inset your standard text here"
MyBody = MyBody + "<table align=left cellspacing=0 cellpadding=0>"
MyBody = MyBody + "<tr><td>field1name</td><td>field2name</td><tr>"
For TabRows = 1 To 2
MyBody = MyBody + "<tr>"
For TabCells = 1 To 2
TabValue = MyArray(TabCells, TabRows)
MyBody = MyBody + "<td>" + TabValue + "</td>"
Next TabCells
MyBody = MyBody + "</tr>"
Next TabRows
MyBody = MyBody + "</table>"
Dim link1 As String
link1 = "c:Valias RevG.txt"
With OutMail
.To = "support-management.system@my.flextronics.com"
'.CC = "whoever"
'.BCC = "whoever"
.Subject = "test from master import"
'.BodyFormat = "test"
.HTMLBody = MyBody
.Attachments.Add link1
.Display 'or
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
how can i include email address for sender?
is it possible to do it using this code..or is there any way i can send it by specifying the sender email address..
although its sending from my account exchange server, i need to specify a different sender email address..can i do that?
Automate A Email Send By Dropping An Email Into A Specific Folder
Microsoft Outlook 2000 is the application I wish to try and complete the task in.
I want to be able to drop an email from a general folder into a folder e.g "Allowed" or "Blocked" and it sends an email to the recipent or sender of the email saying that the email was blocked or allowed, depending on which folder it was dropped into respectivly.
I have no idea were to start.
MSComm1.Output = "asdf" Only "a" Is Send
I am an electronics engineer
I have a graphic panel connected to com1.
I used this simple code to output a string:
MSComm1.PortOpen = True
MSComm1.Output = "asdf"
MSComm1.PortOpen = False
but I only get "a"(not"sdf"),why?
I used null modem conf.
I guess code works...
If you have any comments please let me know.
Thanx
Adding ".com" And "http://" To Address
In my web browser I automaticly add "http://" to the beggining and ".com" to the end so if you wanted to go here you would just type "visualbasicoforum." But it doesnt seem to be working correctly:
Code:
Private Sub cmdGO_Click()
URLText = txtAddress.Text
If Right(URLText, 4) = ".com" Then
Exit Sub
Else
txtAddress.Text = URLText & ".com"
End If
If Left(URLText, 7) = "http://" Then
Exit Sub
Else
txtAddress.Text = "http://" & URLText
End If
webbrowser.Navigate (txtAddress.Text)
End Sub
Send Email With Default Email Client
Hi,
Rather inexperianced user here so be kind
I would like to sent an email from my VB6 application.
I would like to see and edit the email if necessary before its sent. I also need it to have an attchament.
So far I have writen (read copied and modified) a code that sends email through MAPI with attachment and everything is fine. However I cant seam to find a code that will show the email before its sent.
I also have a solution using shell to open the default mail client and fill in the required fields EXCEPT the attachment. Which I can seam to find a code to do.
Surely there has to be a solution where the email appears already completed for viewing and manual send off. Without using Outlook object.
Thank you for any help.
Michal
Send Email From ANY Email Program From Excel VBA??
I know this sounds like one of the hundreds of 'send email?' posts on this forum but I have searched through the lot and not found what I am after.
I currently use Outlook and so it has been simple to send emails but now I need to be able to cater for anyone's email program whether it is Outlook, Notes or whatever.
is there an easy way (MAPI or something?) that will work within Excel as I keep getting errors when I have tried code posted on here for VB.
Thanks for your help.
Richard
|