Uses wodMailbox ActiveX component

Dim wodMailBox1 As wodMailboxCom
Set wodMailBox1 = New wodMailboxCom

'First we need to load message using FileName Property.
wodMailBox1.FileName = "c:\message1.eml"
wodMailBox1.Lock

Dim i As Integer
'Using Attachments Collection we will loop though all attachments inside message.
For i = 0 To wodMailBox1.Messages(0).Attachments.Count - 1
    'Finally we will save attachments inside message using Save Method.
    wodMailBox1.Messages(0).Attachments(i).Save "c:\attach\" & wodMailBox1.Messages(0).Attachments(i).Name
Next i

Uses wodMailbox ActiveX component

Dim wodMailBox1 As WODMAILBOXCOMLib.wodMailboxCom
wodMailBox1 = New WODMAILBOXCOMLib.wodMailboxCom

'First we need to load message using FileName Property.
wodMailBox1.FileName = "c:\message1.eml"
wodMailBox1.Lock()

Dim i As Integer
'Using Attachments Collection we will loop though all attachments inside message.
For i = 0 To wodMailBox1.Messages(0).Attachments.Count - 1
    'Finally we will save attachments inside message using Save Method.
    wodMailBox1.Messages(0).Attachments(i).Save("c:\attach\" & wodMailBox1.Messages(0).Attachments(i).Name)
Next i

Uses wodMailbox ActiveX component

WODMAILBOXCOMLib.wodMailboxCom wodMailBox1;
wodMailBox1 = new WODMAILBOXCOMLib.wodMailboxCom();

//First we need to load message using FileName Property.
wodMailBox1.Filename = "c:\\message1.eml";
wodMailBox1.Lock();

short i;
//Using Attachments Collection we will loop though all attachments inside message.
for (i = 0; i <= wodMailBox1.Messages[0].Attachments.Count - 1; i++)
{
    //Finally we will save attachments inside message using Save Method.
    wodMailBox1.Messages[0].Attachments[i].Save(@"c:\attach\" + wodMailBox1.Messages[0].Attachments[i].Name);
}