Posto il codice:

codice:
Private Sub Command1_click()
Dim o As Object
Dim m As Object
Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)
m.To = "prova@prova.it"
m.Subject = "Oggetto"
m.Body = "Contenuto"
m.Attachments.Add "C:\winzip.log" 'Allega il file
m.Display  'Visualizza 
m.Send    'Invia automaticamente
End Sub
In questo caso a te puoi commentare

m.Attachments.Add
m.Send

Spero di essere chiaro.

Ciao