VB6: Invio email con allegato - OutlookExpress: ShellExecute

[cla80]

Salve ragazzi,
vorrei un esempio con codice sorgente (magari gia esistente e scaricabile da Internet) di Invio Email con allegato.
Vi scrivo in quanto è da un ora che ricerco e ho trovato solo invio di email, senza la possibilità di allegare niente.
Come fare? (tutto da Vb con installato Outlook Express come gestore email)

P.S. il file allegato è il solito non cambia mai, quindi automaticamente deve allegarsi e l'unica cosa da inserire è l'indirizzo email, del destinatario.

Grazie.

[cla80]

un aiutino per cortesia?

[fanboy]

allora per inviare la mail Con OE vai al Thred qui sotto

http://forum.html.it/forum/showthrea...hreadid=465068

poi aggiungi le seguenti righe per allegare il file

MM.AttachmentName = "pippo.pdf"
MM.AttachmentPathName = "c:\pippo.pdf"

ah dimenticavo nel caso non volessi fare aprire la finestra di OE
Basta che setti

MM.Send False

[cla80]

Vorrei aprire una email, con un allegato fisso, ho trovato questo codice ma obbliga di inserire la path come subject email, altrimenti non mi allega il file in email, come fare per allegare un file predefinito (ossia sempre quello) ad una email e però come subject poter scrivere cio che uno vuole:

Allego il codice così capite meglio, provatelo:

Dovete solo aprire visual basic e inserire un commandbutton e copiare cio' che segue (per provare dico)

Private Sub Command1_Click()
Dim zip_file As String, Ret As Long

    ' Start Outlook Express email.
    zip_file = App.Path & "\test.zip"
    ShellExecute Me.hWnd, "Open", _
        "mailto:Anyone@anywhere.com?subject=" & zip_file & _
        "&body=Zip File Attached", vbNullString, _
        vbNullString, vbNormalFocus

    ' Wait until Outlook Express is ready.
    While Ret = 0
        DoEvents
        Ret = FindWindow(vbNullString, zip_file)
    Wend

    ' Send keys Alt-I-A, the zip file name,
    ' two TABs, and Enter.
    SendKeys "%ia" & zip_file & "{TAB}{TAB}{ENTER}"
End Sub

[Markho]

scusa, ma io ho trovato su web questo codice per inviare una mail con allegato:

Dim o 
Dim m

Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)

m.To = "xxxx@yyyy.com"
m.Subject = "This is the Subject"
m.Body = "Hey, this is cool!"
m.Attachments.Add "C:\Temp\FileToAttach.txt"
'Repeat this line if there are more Atta
'     chments
m.Display
'm.Send 'If you want to just send it

te lo posto come l'ho trovato, non l'ho provato......

[cla80]

Se invece si ha Eudora o altro gestore email, con quest'ultimo pezzo di codice non vale come ShellExecute.

Aiuto!

[Markho]

vabbe se vuoi fare le cose fatte bene connettiti direttamente a un server SMTP e ti crei la mail come vuoi.... qui trovi qualcosa:

http://codeguru.earthweb.com/forum/s...hreadid=246388