Enviar anexos de E-mail do excel via VBA

Escrevi uma macro que, ao clicar num botão, envia um e-mail automatizado através do outlook. Tudo corre bem, só que eu n ... Next If DisplayMsg Then .Display Else .Save End If End With Set objOutlook = Nothing End Sub