Creare un Pdf e allegarlo ad una mail

[Kuilsera]

Ciao,
dovete aiutarmi...

qualcuno sà in ASP come creare un Pdf ed allegarlo successivamente ad una mail CDO?

Se avete script già fatti grazie mille

[Dirk Pitt]

Qui trovi come creare un file pdf http://www.aspxnet.it/public/default.asp
Una volta creato crei l'oggetto che spedisce la mail allegando il file.

[Kuilsera]

Per metterlo nel solito programma l'ho dovuto fare così:


<script language="javascript">
function allega_pdf()
{
var pdf=new FPDF();
pdf.CreatePDF();
pdf.SetPath("fpdf/");
pdf.SetFont("Arial","",16);
pdf.Open();
pdf.AddPage();
pdf.Cell(40,10,"Hello Word!");
pdf.Close();
pdf.Output();
}
</script>

[Kuilsera]

Per metterlo nel programma ho dovuto metterlo così:


<script language="javascript">
function allega_pdf()
{
var pdf=new FPDF();
pdf.CreatePDF();
pdf.SetPath("fpdf/");
pdf.SetFont("Arial","",16);
pdf.Open();
pdf.AddPage();
pdf.Cell(40,10,"Hello Word!");
pdf.Close();
pdf.Output();
}
</script>


>perchè altrimenti mi sballava con la connessione al db.
>ma come la richiamo la funzione?
>Il pdf deve essere allegato all'Email...come richiamo la funzione javascript nell'email CDO??

[Dirk Pitt]

Non conosco il funzionamento di Fpdf, quindi ti chiedo, quando crea un pdf lo salva sul server come file?
Se sì lo stesso file lo recuperi dal server allegandolo quando invii la email (con CDOSYS o CDONTS, dipende da quale componente è disponibile sul server).

[Kuilsera]

così fpdf lo apre in video e basta....

però forse cambiando qualcosa in "pdf.Output();"...mettendo fra le parentesi un path...
forse lo salva..no?

per allegare il file va bene in questo modo?

objMail.attachFile("\\mio_computer\testo\file.txt" ,"test.txt")

[Dirk Pitt]

Invio email con CDOSYS (con anche allegato): http://asp.html.it/script/vedi/1025/...il-con-cdosys/

Invio email con CDONTS (con anche allegato):
http://www.aspitalia.com/articoli/cdonts.aspx

Leggi qui e trovi come fare.

[djmax73]

io ho fatto così :

dim objMail
dim objConfig

Set objMail = createObject("CDO.Message") ' Crea l'oggetto email
Set objConfig = Server.createObject ("CDO.Configuration") ' Dimensiona l'oggetto configurazione
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita (con "localhost" usa il predefinito di IIS) '
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
objMail.From="info@xxxxxxxxxxx.it"
objMail.Subject= "Oggetto della Mail"
objMail.bcc = "destinatario@zzzzzzzz.it"

' IMPOSTA ALTA PRIORITA' (! ROSSO)
objMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"
objMail.Fields.Update

objMail.HTLBody=CorpoMessaggio

' ALLEGATO
objMail.AddAttachment server.mappath("\nomesito\cartellaallegati\" & nomeallegato.xxx")
objMail.Send

Set objMail = nothing
Set objConfig = nothing

però perchè IIS invii la mail col SMTP Virtuale bisogna impostare questi parametri dalla videata "Accesso"
(Click destro su Server Virtuale SMTP Predefinito per accedere alle proprietà)



impostare 127.0.0.1


impostare 127.0.0.1


a me così il CDOSYS funziona, sia in locale con Win XP che in remoto su Win 2K3 Server

[Dirk Pitt]

Io con CDOSYS uso codice più snello:

Set myMail = CreateObject("CDO.Message")
myMail.Subject = "OGGETTO DEL MESSAGGIO"
myMail.From = "EMAIL MITTENTE"
myMail.To = "EMAIL DESTINATARIO"
'myMail.Bcc = 
'myMail.Cc =
myMail.TextBody = "TESTO DELLA MAIL" & VbCrLf
myMail.Send

Set myMail = Nothing

Se lo provi e ci aggiungi anche l'allegato dovrebbe funzionare.