<pre lang="vb">With mapi_Message .Subject = "Packed File" .NoteText = sMailMsg .Flags = 0 .FileCount = kCount + 1 .RecipCount = 0 .Reserved = 0 .DateReceived = "" .MessageType = "" End With</pre> For iCount = 0 To UBound(Attch) <pre lang="vb">With mapi_File(jCount) .Filename = sTempFileName .PathName = sTempFileName .Position = iCount .FileType = "" .Reserved = 0 End With</pre>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)