With CrystalReport1
.Destination = crptMail
.EMailMessage= " Aqui você coloca a sua mensagem ou relatorio"
.EMailSubject="Assunto"
.EMailToList ="macoratti@riopreto.com.br"
.Action = 1
End With
Destination - por assumir os seguintes valores:
Window - envia o relatório para uma janela
Printer - envia o relatório para a impressora
File - envia o relatório para um arquivo em disco
EMail (via MAPI) - envia o relatório para outra pessoa na rede via MAPI Email. O relatório é anexado. EMail (via VIM ) - nvia o relatório para outra pessoa na rede via MAPI Email (cc:Mail)
EMailMessage - Define o texto da mensagem que vai aparecer no corpo do EMail
EMailSubject - Define a linha do subject
EMailToList - Define o nome na lista para quem você quer enviar o relatório. (Para mais de um destinatário você deve usar virgulas para separar.)

espero q t ajude...