problema caricamento immagine con CDONTS

**darlette** · 06-07-2007, 10:53

Ciao ragazzi, qualche giorno fa dopo tanti aiuti da parte di Mems sono riuscita a far funzionare questo script che invia un'email a tutti i destinatari che vengono passati tramite checkbox da un'altra pagina. Ora il problema è un altro, vorrei inserire un'immagine di sfondo alla pagina che arriva via email, ho provato ad inserire questo codice, ma l'immagine non si vede:

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim strMittente
Dim strEmailA
Dim strOggetto
Dim utenti
Dim messaggio

strOggetto= Request.Form("Oggetto")
messaggio=Request.form("Message")
utenti=Request.form("checkbox")

Set objEMail = Server.CreateObject("CDONTS.NewMail")
HTML ="<html><head>" &_
"<body background=""http://www.dominio.it/images/bg_mail.jpg"">" &messaggio&"" &_
"</body>" &_
"</html>"

if inStr(utenti," ") > 0 then utenti = replace(utenti," ","")

if inStr(utenti,",") > 0 then
utenti = split(utenti,",")
for i = 0 to uBound(utenti)

id = utenti(i)
sql = "SELECT email FROM account2 WHERE id_account = " & id
set rs = conn.execute(sql)
indirizzoEmail = rs("email")
rs.close
set rs = nothing

strMittente = "info@dominio.it"
strEmailA = indirizzoEmail

objEMail.From = strMittente
objEMail.To = strEmailA
objEMail.Subject = strOggetto
objEMail.BodyFormat = 0
objEMail.MailFormat = 0
objEMail.Body = HTML
objEMail.Send
Set objEMail = Nothing

next
else ' vuol dire che c'è un solo destinatario perchè manca la virgola nella stringa degli id presi con la request

id = utenti
sql = "SELECT email FROM account2 WHERE id_account = " & id
set rs = conn.execute(sql)
indirizzoEmail = rs("email")
rs.close
set rs = nothing
strMittente = "info@dominio.it"
strEmailA = indirizzoEmail

objEMail.From = strMittente
objEMail.To = strEmailA
objEMail.Subject = strOggetto

objEMail.BodyFormat = 0
objEMail.MailFormat = 0
objEMail.Body = HTML
objEMail.Send
Set objEMail = Nothing

end if
Response.Redirect "default2.asp?sez=mailing"

%>

**fraude** · 06-07-2007, 11:09

Per inviare un'immagine che venga visualizzata direttamente nel body (quindi sfondo), è necessario prima che l'immagine stessa venga allegata al messaggio stesso:

codice:

<%

Set objMail = CreateObject("CDONTS.NewMail")

' Allego un file - dal server ovviamente
objMail.AttachURL Server.MapPath("/immagini/logo.gif"), "logo.gif"

'
HTML = "<HTML><HEAD>" &_
      "<title>HTML ed immagini</title>"  &_
      "</head>"  &_
      "<body bgcolor=""#FFFFFF"">"  &_
      "

<img src=logo.gif>
"  &_
      "<a href=http://www.quellochetipare.com>" &_
      "quellochetipare</a>"  &_
      "

In questo paragrafo..." &_
      "</body>"  &_
        "</html>"

' mittente e destinatario
objMail.From = "qualcuno@www.it"
objMail.To = "qualcunaltro@www.it"

' subject
objMail.Subject = "E-mail con sfondo"

' formato dell'e-mail (HTML) e testo
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML

' invio
objMail.Send()

' distruzione oggetto
set objMail = Nothing

%>

**darlette** · 06-07-2007, 11:13

ho aggiunto il tuo codice:

Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.AttachURL Server.MapPath("/images/bg_mail.jpg"), "bg_mail.jpg"

HTML ="<html><head>" &_
"<body background=""http://www.dominio.it/images/bg_mail.jpg"">" &messaggio&"" &_
"</body>" &_
"</html>"

ma l'email continua ad arrivare senza immagine (eppure sul server c'è)

**fraude** · 06-07-2007, 12:02

Controllo il percorso sul server:

codice:

response.write Server.MapPath("/images/bg_mail.jpg")
response.end

**darlette** · 06-07-2007, 12:08

Questo è ciò che visualizzo

D:\FTP ITGo\miodominio\images\bg_mail.jpg

**fraude** · 06-07-2007, 12:14

Originariamente inviato da darlette
Questo è ciò che visualizzo

D:\FTP ITGo\miodominio\images\bg_mail.jpg

Così non sta sul server sta sul tuo pc...

Devi visualizzare una cosa del genere.

http://www.miodominio.it/images/bg_mail.jpg

**darlette** · 06-07-2007, 12:19

e come devo fare? Devo impostare qualcosa diversamente?

**fraude** · 06-07-2007, 12:24

Prova così:

codice:

VirtualFolder = "images"
NewFileName = "bg_mail.jpg"
      
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") + GetPath(Request.ServerVariables("SCRIPT_NAME") ) + VirtualFolder + "/" + NewFileName
response.write virtDestinationPath & "

"
response.end

**darlette** · 06-07-2007, 12:29

Ora mi da questo:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'GetPath'

**fraude** · 06-07-2007, 12:35

Aspetta... non mi ritrovo...
Come spedisci l'email via server o stai provando in localhost?

Discussione: problema caricamento immagine con CDONTS

Strumenti discussione

Ricerca discussione

Visualizza

problema caricamento immagine con CDONTS

Permessi di invio