Inserire un immagine e allegare un file con CDO

[leftist73]

Ciao a tutti,
con la speranza che qualcuno mi possa aiutare, vi spiego il mio problemone:
faccio effettuare una registrazione da un utente tramite un semplice script CDO message.

Il tutto funziona benissimo

Vorrei integrare allo script che allego la possibilità di prendere un immagine posizionandola come intestazione ed allegare un file pdf.

Purtroppo non ho le possibilità (per motivi che vi risparmio) modificare completamente lo script, quindi devo provare a modificare quello che già ho

Un ultima cosa, l'email del destinatario la prelevo direttamente dal form di registrazione dell'utente.

Vi prego aiutatemi!!

'Invio email
' istanzio le costanti per invio
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = email
.From = "[email protected]"
.Sender = "nome azienda"
.Subject = "Registrazione nome azienda"
.TextBody = "Benvenuti - IL VOSTRO REFERENTE DI FIDUCIA."
.Send
End With

 

[Majinbu]

Vorrei integrare allo script che allego la possibilità di prendere un immagine posizionandola come intestazione ed allegare un file pdf.

Scusami ma non ho capito bene, intendi semplicemente aggiungere a mail un'immagine e un pdf che fisicamenete già risiede su tuo server...
se si..non e complicatissimo, basta che aggiungi i tag html al messaggio:

es :
.HTMLBody = " <img src=""http://tua_immg"" /><br/>Benvenuti - IL VOSTRO REFERENTE DI FIDUCIA."
stessa cosa per link o file o quello che ti pare.
Non ricordo benissimo ".HTMLBody" dovrebbe bastare..prova.
Se invece intendi far effettuare prima upload immagine o file...e allegare...il discorso è appena più complesso
:byebye: