[Invio Fax] Allegare un file all'invio del fax

[mosquito70]

Ciao a tutti,
utilizzo, su un server Win2003, la funzionalità FaxServer per inviare fax, il cui files hanno come estensione .rtf

Dopo mille problemi, sono riuscito a risolvere e a far funzionare il tutto.
I file vengono prodotti in formato .html sul server, rinominati in .rtf sul client Win2003 ed inviati.

Ora mi è stato chiesto di effettuare due implementazioni

1) Allegare un file (l'estensione è .rtf o .doc) all'invio di tutti i fax.
2) Inviare in una sola volta (invece che "cliccare" su ogni riga/record), tutti i fax non inviati.

Qualcuno ha già avuto un'esigenza del genere e sa se si può fare?

Se necessario posto il codice, ma credo che sia simile a tutti quelli che utilizzano questa istruzione
Set FaxServer = CreateObject("FaxServer.FaxServer.1")

Grazie in anticipo per qualsiasi suggerimento.

Ciao

[optime]

allegare un file? e che è, 'na mail?

[mosquito70]

Originariamente inviato da optime
allegare un file? e che è, 'na mail?

Vabbè, diciamo che per il cliente potrebbe essere lo stesso.
Per me invece è, "inviare due file via fax..."

[Santino83_02]

Inviare in una sola volta (invece che "cliccare" su ogni riga/record), tutti i fax non inviati.

non conosco il componente, ma immagino che questa richiesta sia equivalente ad:

select * from faxes where inviato=false

for each fax in faxes

send fax

next

detto in pseudocodice.

per il discorso dell'"allegato" (fax di nuova generazione? ) basta che quando crei il file html (ma perchè poi passi dal formato html?) ci aggiungi "l'allgeato" prima di scrivere su file, poi immagino sarà il componente a gestire il fatto che che ci siano piu pagine

[mosquito70]

Originariamente inviato da Santino83_02
non conosco il componente, ma immagino che questa richiesta sia equivalente ad:

(...)

detto in pseudocodice.

Sì, ma non lo so applicare
Vi illustro lo schema che utilizzo (codice non scritto da me, purtroppo).

Lista dei fax inviati

Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect ""
Prefetch=2000
Set objFolder = objFaxServer.Folders
Set objOutgoingArchive = objFolder.OutgoingArchive
'Refresh the archive
objFaxServer.Folders.OutgoingArchive.Refresh
Set objFaxOutgoingMessageIterator = objFaxServer.Folders.OutgoingArchive.GetMessages(Prefetch)
on error resume next
(...Intestazione della tabella HTML di resoconto)
For i = 1 To Prefetch
  'Get the message
 If objFaxOutgoingMessageIterator.AtEOF = True Then
   ' NULL
 else 
   Set objFaxOutgoingMessage = objFaxOutgoingMessageIterator.Message
(...Popolamento righe tabella html...)

end if

objFaxOutgoingMessageIterator.MoveNext

Next 

PEr i fax in coda invece, tralasciando il codice che identifica il motivo per cui l'invio è andato in errore, questo è il codice

Lista fax In errore (scrivo anche il contenuto della tabella html)

Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect ""
Set objFolder = objFaxServer.Folders
Set objOutgoingArchive = objFolder.OutgoingArchive

'Connect to the fax server
objFaxServer.Connect ""

'Get the outgoing queue object
Set objFaxOutgoingQueue = objFaxServer.Folders.OutgoingQueue

'Refresh the queue object
objFaxOutgoingQueue.Refresh
n = objFaxOutgoingQueue.GetJobs.Count

         <tr  class="intesta">
           <td width="14%" align="center">
                       [b]Pagine[/b]
           </td>
           <td width="14%" align="center">
                       [b]Stato[/b]
           </td>
           <td width="14%" align="center">
                       [b]Tentativi[/b]           </td>
           <td width="14%" align="center">
                       [b]Invia[/b]
           </td>
           <td width="14%" align="center">
                       [b]Elimina[/b]
           </td>
         </tr>

           <td width="14%" align="center" class="testolista">
           <%=objFaxOutgoingJob.Pages %>
           </td>
           <td width="14%" align="center" class="testolista">
           <%=statofaxx(objFaxOutgoingJob.ExtendedStatusCode)%>
           </td>
           <td width="14%" align="center" class="testolista">
           <%=objFaxOutgoingJob.Retries%>
           </td>
           <td width="14%" align="center" class="testolista"><a href="javascript:f_confinvi('procedure/pr_invifaxx.asp?vc_numefaxx=<%=objFaxOutgoingJob.Id%>')">
           [img]fax.gif[/img]</a>
           </td>
           <td width="14%" align="center" class="testolista"><a href="javascript:f_deleinvi('procedure/pr_delefaxx.asp?vc_numefaxx=<%=objFaxOutgoingJob.Id%>')">
           [img]images/Icons/Delete.gif[/img]</a>
           </td>
Next 

dove procedure/pr_invifaxx.asp contiene

<%
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect ""
Set objFolder = objFaxServer.Folders
Set objOutgoingArchive = objFolder.OutgoingArchive
'Connect to the fax server
objFaxServer.Connect ""
'Get the outgoing queue object
Set objFaxOutgoingQueue = objFaxServer.Folders.OutgoingQueue
'Refresh the queue object
objFaxOutgoingQueue.Refresh
n = objFaxOutgoingQueue.GetJobs.Count
'Get the job based on the item number
'response.write n&" totale
"

For i = 1 To n
   Set objFaxOutgoingJob = objFaxOutgoingQueue.GetJobs.Item(i)
   if err.Number <> 0 then
   
   else
  if objFaxOutgoingJob.Id=request("vc_numefaxx") then
         objFaxOutgoingJob.Restart
  end if
  end if


Next
%>
   <script language="JavaScript">
       window.opener.location.reload();   
       this.close();
   </script> 

Secondo voi come andrebbe modificato?


edit: Andrebbe aggiunto un bottone del tipo "invia tutti"

[mosquito70]

Originariamente inviato da Santino83_02
(...)
per il discorso dell'"allegato" (fax di nuova generazione? ) basta che quando crei il file html (ma perchè poi passi dal formato html?) ci aggiungi "l'allgeato" prima di scrivere su file, poi immagino sarà il componente a gestire il fatto che che ci siano piu pagine

Tralascio il motivo per il quale ho dovuto creare il file .html (per poi rinominarlo sul "client" Win2003, in .rtf per inviarlo) , però al momento è così e non ho tempo e modo per modificarlo.

Premesso questo, come posso "aggiungere l'allegato" ad un file html?
Ponendo anche che potrei "obbligare" il cliente ad inserire solo file .doc/.rtf, dovrei leggere tali file e riscriverli in html?

Grazie ancora per tutti i contributi

[mosquito70]

Up

(scusate ma non riesco a trovare una soluzione ed è piuttosto urgente)

[optime]

come fai a fare il primo fax? non puoi usare lo stesso metodo per gli 'allegati'?

[mosquito70]

Originariamente inviato da optime
come fai a fare il primo fax? non puoi usare lo stesso metodo per gli 'allegati'?

Il fax lo scrivo (e non posso purtroppo fare altrimenti) in formato .html (che poi sul client rinomino in .doc e lo invio).
Lo so che non è il massimo, ma oramai è coì

L'utente chiaramente inserisce l'allegato in formato .doc/.rtf e non so da che punto partire per allegarlo. Credo che la soluzione migliore sia agire sul codice che invia il fax, ma non riesco a capire come fare per "inviare" 2 file .doc/.rtf invece che uno (come accade ora)

[optime]

con quale programma invii il fax?