Bonjour
Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces
jointes (documents Word).
Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à
faire marcher ça sans devoir retaper le numéro de Fax.
Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax,
Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre
des pièces jointes ?
Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg
Set OlkRecip = .Recipients.Add(Destinataire)
OlkRecip.Type = olTo
If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie
CC = Split(Copies, ";") ' la liste des destinataires en copie est
transformée en tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie
If CC(I) <> "" Then
Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après
OlkRecip.Type = olCC
End If
Next I
End If
.Subject = Sujet
.Body = Corps
If Not IsMissing(PJs) Then ' s'il y a des pièces jointes
On Error GoTo Err
CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en
tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes
If CC(I) <> "" Then
Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés
avant et après les noms de fichier
End If
Next I
End If
.Display ' Affichage du message prêt à être envoyé
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
Bonjour,
Pour Winfax avec Access, tu peux regarder ici : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard a écrit dans le message news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie
If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés
avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Bonjour,
Pour Winfax avec Access, tu peux regarder ici :
http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard Hector@discussions.microsoft.com> a écrit dans le
message news: 342A5684-CBF8-45A6-B2B1-D3352386456E@microsoft.com...
Bonjour
Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces
jointes (documents Word).
Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je
sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à
faire marcher ça sans devoir retaper le numéro de Fax.
Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me
permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax,
Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre
des pièces jointes ?
Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg
Set OlkRecip = .Recipients.Add(Destinataire)
OlkRecip.Type = olTo
If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie
CC = Split(Copies, ";") ' la liste des destinataires en copie est
transformée en tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en
copie
If CC(I) <> "" Then
Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont
otés
avant et après
OlkRecip.Type = olCC
End If
Next I
End If
.Subject = Sujet
.Body = Corps
If Not IsMissing(PJs) Then ' s'il y a des pièces jointes
On Error GoTo Err
CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en
tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes
If CC(I) <> "" Then
Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont
otés
avant et après les noms de fichier
End If
Next I
End If
.Display ' Affichage du message prêt à être envoyé
Pour Winfax avec Access, tu peux regarder ici : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard a écrit dans le message news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie
If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés
avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Bernard Hector
Merci beaucoup
Bonjour,
Pour Winfax avec Access, tu peux regarder ici : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard a écrit dans le message news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie
If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés
avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Merci beaucoup
Bonjour,
Pour Winfax avec Access, tu peux regarder ici :
http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard Hector@discussions.microsoft.com> a écrit dans le
message news: 342A5684-CBF8-45A6-B2B1-D3352386456E@microsoft.com...
Bonjour
Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces
jointes (documents Word).
Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je
sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à
faire marcher ça sans devoir retaper le numéro de Fax.
Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me
permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax,
Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre
des pièces jointes ?
Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg
Set OlkRecip = .Recipients.Add(Destinataire)
OlkRecip.Type = olTo
If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie
CC = Split(Copies, ";") ' la liste des destinataires en copie est
transformée en tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en
copie
If CC(I) <> "" Then
Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont
otés
avant et après
OlkRecip.Type = olCC
End If
Next I
End If
.Subject = Sujet
.Body = Corps
If Not IsMissing(PJs) Then ' s'il y a des pièces jointes
On Error GoTo Err
CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en
tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes
If CC(I) <> "" Then
Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont
otés
avant et après les noms de fichier
End If
Next I
End If
.Display ' Affichage du message prêt à être envoyé
Pour Winfax avec Access, tu peux regarder ici : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard a écrit dans le message news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie
If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés
avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Charles ERNST
Sous Windows XP, il faut installer le fax puis cocher la bibliothèque "Microsoft Fax Service extended COM Type library" et voir le PGM suivant : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_27co.asp
"Bernard Hector" <Bernard a écrit dans le message de news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Sous Windows XP, il faut installer le fax puis cocher la bibliothèque
"Microsoft Fax Service extended COM Type library"
et voir le PGM suivant :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_27co.asp
"Bernard Hector" <Bernard Hector@discussions.microsoft.com> a écrit dans le
message de news: 342A5684-CBF8-45A6-B2B1-D3352386456E@microsoft.com...
Bonjour
Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces
jointes (documents Word).
Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je
sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à
faire marcher ça sans devoir retaper le numéro de Fax.
Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me
permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax,
Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre
des pièces jointes ?
Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg
Set OlkRecip = .Recipients.Add(Destinataire)
OlkRecip.Type = olTo
If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie
CC = Split(Copies, ";") ' la liste des destinataires en copie est
transformée en tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en
copie
If CC(I) <> "" Then
Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après
OlkRecip.Type = olCC
End If
Next I
End If
.Subject = Sujet
.Body = Corps
If Not IsMissing(PJs) Then ' s'il y a des pièces jointes
On Error GoTo Err
CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en
tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes
If CC(I) <> "" Then
Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont
otés
avant et après les noms de fichier
End If
Next I
End If
.Display ' Affichage du message prêt à être envoyé
Sous Windows XP, il faut installer le fax puis cocher la bibliothèque "Microsoft Fax Service extended COM Type library" et voir le PGM suivant : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_27co.asp
"Bernard Hector" <Bernard a écrit dans le message de news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Bernard Hector
J'ai installé le produit, mais qui malheureusement ne marche pas avec mon Winfax Plus 7.1. Il semble que ça marche avec Winfax Pro 8 à 10, mais je ne trouve pas cette référence chez BVRP Merci
Bonjour,
Pour Winfax avec Access, tu peux regarder ici : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard a écrit dans le message news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie
If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés
avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
J'ai installé le produit, mais qui malheureusement ne marche pas avec mon
Winfax Plus 7.1. Il semble que ça marche avec Winfax Pro 8 à 10, mais je ne
trouve pas cette référence chez BVRP
Merci
Bonjour,
Pour Winfax avec Access, tu peux regarder ici :
http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard Hector@discussions.microsoft.com> a écrit dans le
message news: 342A5684-CBF8-45A6-B2B1-D3352386456E@microsoft.com...
Bonjour
Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces
jointes (documents Word).
Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je
sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à
faire marcher ça sans devoir retaper le numéro de Fax.
Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me
permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax,
Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre
des pièces jointes ?
Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg
Set OlkRecip = .Recipients.Add(Destinataire)
OlkRecip.Type = olTo
If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie
CC = Split(Copies, ";") ' la liste des destinataires en copie est
transformée en tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en
copie
If CC(I) <> "" Then
Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont
otés
avant et après
OlkRecip.Type = olCC
End If
Next I
End If
.Subject = Sujet
.Body = Corps
If Not IsMissing(PJs) Then ' s'il y a des pièces jointes
On Error GoTo Err
CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en
tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes
If CC(I) <> "" Then
Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont
otés
avant et après les noms de fichier
End If
Next I
End If
.Display ' Affichage du message prêt à être envoyé
J'ai installé le produit, mais qui malheureusement ne marche pas avec mon Winfax Plus 7.1. Il semble que ça marche avec Winfax Pro 8 à 10, mais je ne trouve pas cette référence chez BVRP Merci
Bonjour,
Pour Winfax avec Access, tu peux regarder ici : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
"Bernard Hector" <Bernard a écrit dans le message news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie
If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés
avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Bernard Hector
Merci, mais je suis sous Windows 2000 !
Sous Windows XP, il faut installer le fax puis cocher la bibliothèque "Microsoft Fax Service extended COM Type library" et voir le PGM suivant : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_27co.asp
"Bernard Hector" <Bernard a écrit dans le message de news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
End With
Merci, mais je suis sous Windows 2000 !
Sous Windows XP, il faut installer le fax puis cocher la bibliothèque
"Microsoft Fax Service extended COM Type library"
et voir le PGM suivant :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_27co.asp
"Bernard Hector" <Bernard Hector@discussions.microsoft.com> a écrit dans le
message de news: 342A5684-CBF8-45A6-B2B1-D3352386456E@microsoft.com...
Bonjour
Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces
jointes (documents Word).
Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je
sais
que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à
faire marcher ça sans devoir retaper le numéro de Fax.
Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me
permette
de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax,
Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre
des pièces jointes ?
Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg
Set OlkRecip = .Recipients.Add(Destinataire)
OlkRecip.Type = olTo
If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie
CC = Split(Copies, ";") ' la liste des destinataires en copie est
transformée en tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en
copie
If CC(I) <> "" Then
Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés
avant et après
OlkRecip.Type = olCC
End If
Next I
End If
.Subject = Sujet
.Body = Corps
If Not IsMissing(PJs) Then ' s'il y a des pièces jointes
On Error GoTo Err
CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en
tableau
For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes
If CC(I) <> "" Then
Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont
otés
avant et après les noms de fichier
End If
Next I
End If
.Display ' Affichage du message prêt à être envoyé
Sous Windows XP, il faut installer le fax puis cocher la bibliothèque "Microsoft Fax Service extended COM Type library" et voir le PGM suivant : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_27co.asp
"Bernard Hector" <Bernard a écrit dans le message de news:
Bonjour Je souhaite envoyer par Fax un ou plusieurs états Access, avec des pièces jointes (documents Word). Je voudrais procéder comme je le fais pour l'envoi d'un mail * car je sais que l'on peut envoyer un fax à partir de Outllok. Mais je n'arrive pas à faire marcher ça sans devoir retaper le numéro de Fax. Je pense aussi à utiliser WinFax. Existe-t-il une librairie qui me permette de fabriquer un Fax à partir de VBA avec les champs Destinataire, N° fax, Objet, texte d'accompagnement déjà remplis, fax auquel je puisse adjoindre des pièces jointes ? Merci d'avance pour l'aide
* Set Olk = CreateObject("Outlook.Application") Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg Set OlkRecip = .Recipients.Add(Destinataire) OlkRecip.Type = olTo If Not IsMissing(Copies) Then ' s'il y a des destinataires en copie CC = Split(Copies, ";") ' la liste des destinataires en copie est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les destinataires en copie If CC(I) <> "" Then Set OlkRecip = .Recipients.Add(Trim(CC(I))) ' les blancs sont otés avant et après OlkRecip.Type = olCC End If Next I End If .Subject = Sujet .Body = Corps If Not IsMissing(PJs) Then ' s'il y a des pièces jointes On Error GoTo Err CC = Split(PJs, ";") ' la liste des pièces jointes est transformée en tableau For I = LBound(CC) To UBound(CC) ' boucle sur les pièces jointes If CC(I) <> "" Then Set OlkAttach = .Attachments.Add(Trim(CC(I))) 'les blancs sont otés avant et après les noms de fichier End If Next I End If .Display ' Affichage du message prêt à être envoyé
