VBScript

Generate a Unique Filename for an Email

Demonstrates the Chilkat Email.GenerateFilename method, which generates a unique filename for the email. The returned filename is different each time the method is called. This example generates one and prints it.

Background: When saving many messages to a folder — for example exporting a mailbox to .eml files — you need a distinct name for each so they do not overwrite one another. GenerateFilename produces a fresh, collision-resistant name on demand, sparing you from inventing your own scheme (timestamps, counters, GUIDs) just to keep files from clashing.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

'  Demonstrates the GenerateFilename method, which generates a unique filename for this
'  email.  The filename is different each time the method is called.

set email = CreateObject("Chilkat.Email")
email.Subject = "Weekly report"

'  Generate a unique filename (for example, to save the email to disk).
fname = email.GenerateFilename()

outFile.WriteLine("Generated filename: " & fname)

outFile.Close