1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Dim rf As New RFCOMAPILib.FaxServer
'Parametres d authentification sur le serveur
rf.ServerName = "nom_du_serveur_fax"
rf.UseNTAuthentication = False
rf.AuthorizationUserID = "user_id"
rf.AuthorizationUserPassword = "password"
rf.Protocol = cpTCPIP
rf.OpenServer
'creation d'un fax
Dim lefax As RFCOMAPILib.Fax
Set lefax = rf.CreateObject(coFax)
lefax.ToName = "nom_du_destinataire"
lefax.ToFaxNumber = "numero_du_destinataire"
lefax.Attachments.Add ("URL_de_l_attachment")
heure_envoi = DateAdd("s", 600, Now) 'Permet dans une boucle d'espacer les envois tous les 30 fax de
'5 minutes par exemple pour pas mettre a genou le serveur (je connais pas
'du tout les limites de ce que le serveur peut supporter)
lefax.DelayFaxSendDateTime = heure_envoi
lefax.IsInDelaySend = True 'On n'oublie pas cette ligne sinon on a l'air con pour espacer les envois
lefax.Send
rf.CloseServer |
Partager