For some stupid reason you have to set the RecipDisplayName property:
Code:
Private Sub CreateEmail()
    MAPIMessages1.Compose
    MAPIMessages1.RecipAddress = "[email protected]"
    MAPIMessages1.RecipDisplayName = "Brent"
    MAPIMessages1.MsgSubject = "Rebuild Log "
    MAPIMessages1.MsgNoteText = "Rebuild Complete"
    MAPIMessages1.AttachmentPathName = "C:\work\regplus utilities\Rebuild.log"
    MAPIMessages1.Send
    Call LogoffEmail
End Sub
Good luck!