mail con allegato

[sanny82]

Ciao a tutti...
volevo chiedervi: posso inviare un'email richiamando outlook e mettere un allegato di default??
Come??
Grazie mille

[sanny82]

Come si usa mailto in vb 6???
Aiuto per favore...
Grazie mille

[twister_has_you]

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






SPERO DI ESSERTI STATO UTILE,CIAO
ROBERTO

[sanny82]

grazie per la risposta ma non è quella che fà al caso mio, io voglio ogni volta poter decidere a chi mandarla...
Provo a spiegarmi meglio......
1) Vorrei utilizzare la pagina di outlook per inviare mail tramite il comando mailto: di cui non so bene la sintassi...
Potete dirmela per favore?

2) Vorrei inserire un file allegato

Grazie mille per la pazienza

[twister_has_you]

Forse non mi sono spiegato io,
basta creare un campo testo ed una variabile per decidere a chi mandarla ed il problema dell'allegato con questo codice non esiste

[sanny82]

Non voglio inserire nessun type.text, mi hanno chiesto di lanciare solamente outlook...
Vorrei semplicemente lanciare la pagina di outlook come in asp che si usa Href="mailto:....."...
In vb come si fà???

[twister_has_you]

ce l'ho lo script ma lo devo cercare
Wait a moment please

[sanny82]

Grazie mille

[twister_has_you]

ECCOLO

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:\File.txt"
'Ripeti questa riga se ci sono più allegati
m.Display
m.Send ' Se la vuoi mandare automaticamente altrimenti se togli quest'ultima riga ti apre l'outlook

[sanny82]

Non fa nulla...
Non mi fa neanche vedere l'outloook...
grazie mille della pazienza