| | Post: 444 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
16/04/2024 15:53 | |
Mi potete indicare se sia possibile inviare un fax con una macro di excel?
rex88 |
|
| | Post: 444 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
16/04/2024 21:08 | |
All'Amministratore,
sulla pagina del forum Sezione "Soluzioni Excel Domande e Risposte" risulta che alle ore 19:28 di oggi vi è un altro post, mentre digitando su "Soluzioni Excel Domande e Risposte" l'ultimo post è fermo alle ore 15:53.
Alla base del forum vi è la massima trasparenza quindi in quale Sezione si trova il post delle ore 19:28 per consentire agli Utenti di prenderne visione?
Allego le immagini.
rex88 |
| | Post: 1.984 | Registrato il: 27/07/2010
| Utente Veteran | | | OFFLINE |
|
16/04/2024 21:47 | |
Il post era mio e io l'ho cancellato; quindi nessuna censura da parte degli amministratori/moderatori.
Bye!
scossa
scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| | Post: 445 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
17/04/2024 08:05 | |
La mia richiesta era solo di avere la possibilità di vedere se il post aveva a che fare con quanto da me richiesto in questa discussione.
Niente altro.
|
| | Post: 1.985 | Registrato il: 27/07/2010
| Utente Veteran | | | OFFLINE |
|
17/04/2024 08:20 | |
rex88 (nTdQ231201), 17/04/2024 08:05:
....vedere se il post aveva a che fare con quanto da me richiesto in questa discussione.
Sì, mi domandavo solo se la tua era una semplice curiosità o una necessità (fax al giorno d'oggi?).
Bye!
scossa
scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| | Post: 446 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
17/04/2024 08:58 | |
Non era una semplice curiosità ma volevo una alternativa all'invio di un file pdf via mail.
EDIT
Ho fatto un giro in rete ma non ho trovato niente. [Modificato da rex88 17/04/2024 09:01] |
| | Post: 447 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
17/04/2024 12:23 | |
Forse mi sono espresso male.
Chiedo solo se con le vostre conoscenze è possibile inviare un file pdf con il fax visto che nei riferimenti ho trovato questa libreria:
Microsoft Fax Service Extended COM Type Library
[Modificato da rex88 17/04/2024 12:28] |
| | Post: 448 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
17/04/2024 13:46 | |
Ho inserito nel file allegato le due sub trovate su questi siti:
https://learn.microsoft.com/fr-fr/previous-versions/windows/desktop/fax/-mfax-sending-a-fax
https://learn.microsoft.com/fr-fr/previous-versions/windows/desktop/fax/-mfax-broadcasting-a-fax
Vi sono alcune righe in rosso e non capisco il perchè.
Mi potete dire il perché?
Grazie |
| | Post: 5.086 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
17/04/2024 16:16 | |
Il codice che è nei link che hai riportato non è VBA ma Visual Basic. In VBA non esiste l’evento Form_Load() quindi non vedo come quel codice si possa usare in Excel.
Alfredo |
| | Post: 449 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
17/04/2024 16:27 | |
Si applica ad access.
Uno tra i tanti:
https://stackoverflow.com/questions/58631033/ms-access-a-certain-forms-form-load-only-invoked-first-time-that-the-user-vie
EDIT
Su:
https://stackoverflow.com/questions/38132219/vba-excel-how-to-call-form-load-event
invece ho trovato questo:
VBA Excel - How to call Form_Load event [Modificato da rex88 17/04/2024 16:42] |
| | Post: 1.986 | Registrato il: 27/07/2010
| Utente Veteran | | | OFFLINE |
|
17/04/2024 17:19 | |
Ci sono un po' di errori in quel codice, ma correggendoli potrebbe funzionare.
Il punto è che c'è un prerequisito da soddisfare: tra i dispositivi del tuo computer è presente un server fax?
Io no ce l'ho e non posso testare il codice, quindi mi sono limitato a correggere quello che potevo, ovvero togliere gli errori che impedivamo la compilazione del codice.
A runtime ovviamente, non avendo un server fax, il codice va in errore (connessione al server fax).
N.B.: non ho intenzione di studiarmi la schedulazione, né altre cose, quindi non penso di intervenire ulteriormente.
Di seguito il codice modificato, ti lascio l'onere di studuare e sistemare lato server fax:
fax 'https://learn.microsoft.com/fr-fr/previous-versions/windows/desktop/fax/-mfax-sending-a-fax
Private Sub Form_Load()
'mettere i riferimenti alla libreria Microsoft Fax Service Extended COM Type Library
Dim objFaxDocument As FaxDocument
Dim objFaxServer As FaxServer
Dim objSender As Object
Dim JobId As Variant
'Error handling
On Error GoTo Error_Handler
Set objFaxServer = New FaxServer
Set objFaxDocument = New FaxDocument
'Connect to the fax server
objFaxServer.Connect ""
'Set the fax body
objFaxDocument.Body = "c:\Docs\Body.txt"
'Name the document
objFaxDocument.DocumentName = "My First Fax"
'Set the fax priority
objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH
'Add the recipient with the fax number 12225550100
objFaxDocument.Recipients.Add "12225550100", "Bud"
'Choose to attach the fax to the fax receipt
objFaxDocument.AttachFaxToReceipt = True
'Set the cover page type and the path to the cover page
objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
objFaxDocument.CoverPage = "generic"
'Provide the cover page note
objFaxDocument.Note = "Here is the info you requested"
'Provide the address for the fax receipt
objFaxDocument.ReceiptAddress = "someone@example.com"
'Set the receipt type to email
objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
'Specify that the fax is to be sent at a particular time
objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstNOW
'CDate converts the time to the Date data type
'objFaxDocument.ScheduleTime = CDate("5:01:47 PM")
objFaxDocument.Subject = "Today's fax"
'Set the sender properties.
objFaxDocument.Sender.Title = "Mr."
objFaxDocument.Sender.Name = "Bob"
objFaxDocument.Sender.City = "Cleveland Heights"
objFaxDocument.Sender.State = "Ohio"
objFaxDocument.Sender.Company = "Microsoft"
objFaxDocument.Sender.Country = "USA"
objFaxDocument.Sender.Email = "someone@microsoft.com"
objFaxDocument.Sender.FaxNumber = "12165555554"
objFaxDocument.Sender.HomePhone = "12165555555"
objFaxDocument.Sender.OfficeLocation = "Downtown"
objFaxDocument.Sender.OfficePhone = "12165555553"
objFaxDocument.Sender.StreetAddress = "123 Main Street"
objFaxDocument.Sender.TSID = "Office fax machine"
objFaxDocument.Sender.ZipCode = "44118"
objFaxDocument.Sender.BillingCode = "23A54"
objFaxDocument.Sender.Department = "Accts Payable"
'Save sender information as default
objFaxDocument.Sender.SaveDefaultSender
'Submit the document to the connected fax server
'and get back the job ID.
'objFaxDocument.ConnectedSubmit objFaxServer
JobId = objFaxDocument.Submit("test")
MsgBox "The Job ID is :" & JobId
objFaxServer.Disconnect
Exit Sub
Error_Handler:
'Implement error handling at the end of your subroutine. This
' implementation is for demonstration purposes
MsgBox ("Error number: " & Hex(Err.Number) & ", " & Err.Description)
End Sub
[Modificato da scossa 17/04/2024 17:21]
Bye!
scossa
scossa's web site
___
Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| | Post: 450 | Registrato il: 01/12/2023
| Età: 72 | Utente Senior | 2007 | | OFFLINE | |
|
17/04/2024 17:57 | |
Ciao,
adesso provo con la stampante che ho con la funzionalità dell'invio fax.
Prima però devo vedere le funzionalità della stamapante perchè fino ad ora l'ho adoperata solo per stampare, scannerizzare e fare le fotocopie.
Grazie.
rex88
EDKIT
Spero che questa utility possa servire anche ad altri, anche se oggi c'è la posta elettronica per inviare documenti, foto, ecc..
[Modificato da rex88 17/04/2024 18:01] |
|
|