-----Original Message-----
You could do it from a text file:
'Get the Autonumber from the text file and feed it in to the
Autonumber field also add one so it is updated next time
strFullPath = "C:\test.txt"
Set oFSO=Application.CreateObject ("Scripting.FileSystemObject")
Set oFSOFile=oFSO.OpenTextFile(strFullPath,ForReading)
strContent=oFSOFile.ReadAll
arrItems=strContent
Item.UserProperties.find("AutoNumber").Value=arrItems
'Update the number-add one to it
AddOne=arrItems+1
oFSOFile.Close
'Open the file for writing the updated number into
Set oFSOFile=oFSO.OpenTextFile(strFullPath,ForWriting)
oFSOFile.Write AddOne
oFSOFile.Close
You could look up textstream on Outlook VBA help.
"Hollis D. Paul" <
[email protected]> wrote in