mail con allegato

[twister_has_you]

Guarda che funziona l'ho appena testato

Crea un pulsante sul form chiamato command1
ed assicurati che il file che indichi da codice esista
Poi incolla questo nel 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 = "Destinatario"
m.Subject = "Oggetto"
m.Body = "Contenuto"
m.Attachments.Add "C:\nomefile.txt"
m.Display
End sub

[sanny82]

Ok grazie mille ...
Scusa ma è molto lento il mio computer...
Funziona perfettamente, grazie

[md76]

Private Sub Invia_Email()
Dim objmail As New Connector
Dim success As Boolean
objmail.FilesAtt = "c:\miofile.txt" 'File da allegare
objmail.FileTemp = "c:\miofile.tmp" 'Nome del file temporaneo
objmail.KillFileTemp = True 'Eliminare il file temporaneo dopo averlo allegato
objmail.Server = "mail.libero.it" 'Inserire qui il nome del server di mail
objmail.Sender = "info@xx.it" 'inserire qui il nome del mittente
objmail.Sendername = "Io" 'inserire qui il nome del mittente
objmail.Subject = "Oggetto" 'Oggetto email
objmail.Body = "Contenuto del messaggio"
objmail.recipient = "info@xx.it" 'inserire qui l'indirizzo e-mail del destinatario
objmail.RecipientName = "NomeAzienda" 'inserire qui il nome del destinatario
success = objmail.send ' true se la mail è stata spedita correttamente
if success = true then
msgbox "E-Mail inviata correttamente"
else
msgbox "Errore nell'invio dell'E-Mail"
endif
End Sub


mi da tipo definito dall'utente non definito che fare ???