@values= map $msg->{$_}, qw{SenderName SenderEmailAddress SentOnBehalfOfName ReplyRecipientNames SenderEmailType SentOn ReceivedTime MessageClass Size Subj SentTo Unread InternetCodepage importance EntryID ConversationIndex ConversationTopic Class BodyFormat Body} ;

$rv=$sth->execute(@values);