VB发送邮件OptionExplicitDimWebAddr$,EmailPrivateSubCommand1_Click()WebAddr="http://schemas.microsoft.com/cdo/configuration/"SetEmail=CreateObject("CDO.Message")Email.From="youxiangdizhi@163.com"'你的邮箱地址Email.To="fawangdedizhi@163.com"'要发往的地址Email.