MAPISession1.SignOn With MAPIMessages1 .MsgIndex = -1 .SessionID = MAPISession1.SessionID .Compose .RecipIndex = 0 .RecipDisplayName = "markus662@hotmail.com" .RecipAddress = "markus662@hotmail.com" .MsgSubject = "test1" .ResolveName .Compose .RecipIndex = 1 .RecipDisplayName = "devil662@skynet.be" .RecipAddress = "devil662@skynet.be" .MsgSubject = "test2" .ResolveName .Send End With MAPISession1.SignOff