Ciao a Tutti,
ho una pagina index.asp che contiene tanti campi textarea il cui contenuto puo' essere ricco di tanti caratteri...
in questa pagina c' e' un bottone che, quando lo schiaccio, mi ridirige alla pagina mail.asp che mi fa partire un ' email.
Una volta che l' utente compila il form, e riempie quindi questi campi,
vorrei che si aprisse una finestra di microsoft outlook per inviare ad un destinatario il' intero contenuto del form.
ho provato con il comando mailto , ma, purtroppo, causa il ricco contenuto in caratteri dei vari campi alle volte non mi parte l' email;il mailto ha un limite fisico in caratteri e quando si supera tal limite non parte proprio l' email.
Allora ho provato ad usare il CDO.Message , di cui posto il codice. Esso, che rappresenta il contenuto della pagina mail.asp , e' perfettamente funzionante:
<%@ Language=VBScript %>
<%
Option Explicit
Dim mail, sender
sender = Request.Form("user")
'
Set mail=CreateObject("CDO.Message")
mail.To="pluto@iol.it"
mail.From="pippo@iol.it"
mail.Subject="The Ticket Num. has been SUBMITTED !"
mail.HTMLBody="<p align='center'>OPEN INFORMATION</p>
" &_
"internal Code: " & Request.Form("proj_code") & "
" &_
"Project: " & Request.Form("proj_name") & "
" &_
"Product: " & Request.Form("product") & "
" &_
"User: " & Request.Form("user") & "
" &_
...........................
"Opening Date: " & Request.Form("dt_start") & "
" &_
"Job name/Job run#: " & Request.Form("job") & "
" &_
"Notes: " & Request.Form("notes_2") & "
"
mail.Send
Set mail=nothing
%>
Il problema e' che in questo modo parte l' email automaticamente e, quando arriva al destinatario, egli lo vede tra i messaggi arrivati in Microsoft Otlook (predefinito).
Vorrei invece che il messaggio NON partisse in automatico, visto che e' stato accertato che in questo modo alle volte NON arriva e NON abbiamo alcun controllo sul perche' cio' succede.
Vorrei che, quando uno schiaccia il bottone dalla pagina index.asp , si aprisse in automatico la pagina di Microsoft Outlook con scritti i campi compilati dall' utente. In questo modo l' utente vede cio' che ha compilato, controlla che tutto sia giusto, e quindi E' SICURO di spedire il messaggio al destinatario.
Prima di scrivere questo topic, ho guardato nel forum se c' era qualcosa che mi tornasse in utile ...
Ho trovato in internet un modo per inviare messaggi con microsoft outlook.
Ho provato nel modo seguente ma non mi succede niente ....
Potete aiutarmi ??
Grazie mille in anticipo !!!!
Ho fatto diventare la mia pagina mail.asp cosi':
<%@ Language=VBScript %>
<%
Option Explicit
Dim Outlook
Set Outlook = CreateObject("Outlook.Application")
'
Dim Message, aFrom, aTo
aFrom = "pippo@iol.it"
aTo = "pluto@iol.it"
Set Message = Outlook.CreateItem(olMailItem)
With Message
'
'You can display the message To debug And see state
.Display
.Subject = "Ciao!"
.Body = "Test"
.Recipients.Add (aTo)
Const olOriginator = 0
If Len(aFrom) > 0 Then .Recipients.Add(aFrom).Type = olOriginator
.Send
'
End With
%>
Rispondi quotando
