All,

I have a problem and have included my copy of code for reference. I
need to build an excel table (with dynamic number of rows to be determined
by a do loop counter (# of users) and it should build a table, and insert in
data that is concatenated from other variables up above in the code
(intUserCt and txtQID).

I know that I need to open a Do loop and set a counter variable and then the
usercount should be = to teh number of times that the loop will run. I
don't know how to write the data into excel on a row by row basis and
concatenating teh fields into excel. From there I want to set the table to
a variable and do another HTMLBody = Replace on %Users% if it will work.
The end result table sample is shown below with the code. Any assistance or
pointers would be greatly appreciated.

Cell1 Cell2

txtQID+"USER"+intCounter txtTempPassword
1234567USER1 Use1Time

Sub Prime_Online()



Dim myOLApp As New Outlook.Application

Dim myOLItem As Outlook.MailItem

Dim txtToAddress As String

Dim txtOrderNumber As String

Dim txtAgency As String

Dim txtQID As String

Dim txtTrackingNumber As String

Dim txtDecryptionKey As String

Dim txtProdKey As String

Dim txtDLCode As String

Dim intUserCt As Integer





txtToAddress = InputBox("Please insert in a To: email address", "To:")

txtQID = InputBox("Please insert in the customer id.", "Customer ID")

txtProdKey = InputBox("Please insert in the Product Key.", "Product Key")

intUserCt = InputBox("Please insert # of Users.", "Number of Users")

txtDLCode = InputBox("Please insert in the Download Code.", "Download Code")







Set myOLItem = myOLApp.CreateItemFromTemplate("C:\Documents and
Settings\user\Application Data\Microsoft\Templates\Prime Online
Welcome.oft")



With myOLItem

.SentOnBehalfOfName = "Purchasing"

.To = Trim(txtToAddress)

'.BCC = "CLL - AFW-Online Data Center"

.Subject = "Prime Online Order"

.HTMLBody = Replace(myOLItem.HTMLBody, "%QID%", txtQID)

.HTMLBody = Replace(myOLItem.HTMLBody, "%ProdKey%", txtProdKey)

.HTMLBody = Replace(myOLItem.HTMLBody, "%DLCode%", txtDLCode)

.HTMLBody = Replace(myOLItem.HTMLBody, "%UserCt%", intUserCt)

.HTMLBody = Replace(myOLItem.HTMLBody, "%Users%", intUserCt)

End With



myOLItem.Display



End Sub