Using Enumerators

Dim enumerator As IEnumerator = message.Attachments.GetEnumerator()
While enumerator.MoveNext()
    i = i + 1
    attachment = CType(enumerator.Current, Outlook.Attachment)
    timeNow = Date.Now()
    fileNameSuffix = "/" & timeNow.ToString("yyyyMMddHHmmssffff") & machineName & i.ToString()
    fullFileName = fileNamePrefix & fileNameSuffix
    attachment.SaveAsFile(fullFileName)
    returnHT.Add(attachment.FileName, fullFileName)
End While