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
Anor
Bonjour
Tu peux utiliser la commande sendobject. Ci-dessous un exemple ....simplifié :
Un bouton dans un formulaire :
Private Sub BtnEnvoiIndividuel_Click()
Dim strDest(1 to 3) as string Dim i as integer
strDest(1)="" strDest(2)="" strDest(3)=""
For i = 1 to 3 DoCmd.SendObject acReport, "TonReport"", _ acformatrtf, strDest(i),"", "", "Objet du message", _ "Corps du Message", False Next i
MsgBox "Mails envoyés à chacun des destinataires", _ vbInformation + vbOKOnly, "Confirmation d'envoi individuel" End Sub
Puis dans le code source de l'état :
Private Sub Report_Open(Cancel As Integer) On Error GoTo Err_Report_Open If fIsLoaded("TonFormulaire") = True Then Me.Filter = "([IDChampdeL'Etat]=[Forms]![TonFormulaire]![LeControleDuFormquicontientl'identifiant].Value)" Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If Err_Report_Open: Exit Sub End Sub
Et enfin, dans un module à part, la fonction fIsLoaded
Public Function fIsLoaded(ByVal strFormName As String) As Integer If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function
Voilà Chaque destinataire recevra un message personnalisé avec état filtré en pièce jointe.
A+ Arnaud
a écrit dans le message de news:
| bonjour, | | je voudrai envoi un mail en auto pour chaque client avec des | informations propres au clients | | ma source est une requete mais je peut creer un etat pour chaque client | | Comment faire j'attend vos conseils | Merci |
Bonjour
Tu peux utiliser la commande sendobject.
Ci-dessous un exemple ....simplifié :
For i = 1 to 3
DoCmd.SendObject acReport, "TonReport"", _
acformatrtf, strDest(i),"", "", "Objet du message", _
"Corps du Message", False
Next i
MsgBox "Mails envoyés à chacun des destinataires", _
vbInformation + vbOKOnly, "Confirmation d'envoi individuel"
End Sub
Puis dans le code source de l'état :
Private Sub Report_Open(Cancel As Integer)
On Error GoTo Err_Report_Open
If fIsLoaded("TonFormulaire") = True Then
Me.Filter =
"([IDChampdeL'Etat]=[Forms]![TonFormulaire]![LeControleDuFormquicontientl'identifiant].Value)"
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
Err_Report_Open:
Exit Sub
End Sub
Et enfin, dans un module à part, la fonction fIsLoaded
Public Function fIsLoaded(ByVal strFormName As String) As Integer
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormName).CurrentView <> 0 Then
fIsLoaded = True
End If
End If
End Function
Voilà
Chaque destinataire recevra un message personnalisé avec état filtré en pièce jointe.
A+
Arnaud
<elnana77@hotmail.com> a écrit dans le message de news:
1115192961.500813.108090@o13g2000cwo.googlegroups.com...
| bonjour,
|
| je voudrai envoi un mail en auto pour chaque client avec des
| informations propres au clients
|
| ma source est une requete mais je peut creer un etat pour chaque client
|
| Comment faire j'attend vos conseils
| Merci
|
Tu peux utiliser la commande sendobject. Ci-dessous un exemple ....simplifié :
Un bouton dans un formulaire :
Private Sub BtnEnvoiIndividuel_Click()
Dim strDest(1 to 3) as string Dim i as integer
strDest(1)="" strDest(2)="" strDest(3)=""
For i = 1 to 3 DoCmd.SendObject acReport, "TonReport"", _ acformatrtf, strDest(i),"", "", "Objet du message", _ "Corps du Message", False Next i
MsgBox "Mails envoyés à chacun des destinataires", _ vbInformation + vbOKOnly, "Confirmation d'envoi individuel" End Sub
Puis dans le code source de l'état :
Private Sub Report_Open(Cancel As Integer) On Error GoTo Err_Report_Open If fIsLoaded("TonFormulaire") = True Then Me.Filter = "([IDChampdeL'Etat]=[Forms]![TonFormulaire]![LeControleDuFormquicontientl'identifiant].Value)" Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If Err_Report_Open: Exit Sub End Sub
Et enfin, dans un module à part, la fonction fIsLoaded
Public Function fIsLoaded(ByVal strFormName As String) As Integer If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function
Voilà Chaque destinataire recevra un message personnalisé avec état filtré en pièce jointe.
A+ Arnaud
a écrit dans le message de news:
| bonjour, | | je voudrai envoi un mail en auto pour chaque client avec des | informations propres au clients | | ma source est une requete mais je peut creer un etat pour chaque client | | Comment faire j'attend vos conseils | Merci |
elnana77
Merci pour ton aide ca marche mais ca prend en messagerie outlook mais j'utilise lotus notes
Bonjour
Tu peux utiliser la commande sendobject. Ci-dessous un exemple ....simplifié :
Un bouton dans un formulaire :
Private Sub BtnEnvoiIndividuel_Click()
Dim strDest(1 to 3) as string Dim i as integer
strDest(1)="" strDest(2)="" strDest(3)=""
For i = 1 to 3 DoCmd.SendObject acReport, "TonReport"", _ acformatrtf, strDest(i),"", "", "Objet du message", _ "Corps du Message", False Next i
MsgBox "Mails envoyés à chacun des destinataires", _ vbInformation + vbOKOnly, "Confirmation d'envoi individuel" End Sub
Puis dans le code source de l'état :
Private Sub Report_Open(Cancel As Integer) On Error GoTo Err_Report_Open If fIsLoaded("TonFormulaire") = True Then Me.Filter =
Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If Err_Report_Open: Exit Sub End Sub
Et enfin, dans un module à part, la fonction fIsLoaded
Public Function fIsLoaded(ByVal strFormName As String) As Integer If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function
Voilà Chaque destinataire recevra un message personnalisé avec état filtré en pièce jointe.
A+ Arnaud
a écrit dans le message de news:
| bonjour, | | je voudrai envoi un mail en auto pour chaque client avec des | informations propres au clients | | ma source est une requete mais je peut creer un etat pour chaque client
| | Comment faire j'attend vos conseils | Merci |
Merci pour ton aide
ca marche mais ca prend en messagerie outlook mais j'utilise lotus
notes
Bonjour
Tu peux utiliser la commande sendobject.
Ci-dessous un exemple ....simplifié :
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
Err_Report_Open:
Exit Sub
End Sub
Et enfin, dans un module à part, la fonction fIsLoaded
Public Function fIsLoaded(ByVal strFormName As String) As Integer
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormName).CurrentView <> 0 Then
fIsLoaded = True
End If
End If
End Function
Voilà
Chaque destinataire recevra un message personnalisé avec état
filtré en pièce jointe.
A+
Arnaud
<elnana77@hotmail.com> a écrit dans le message de news:
1115192961.500813.108090@o13g2000cwo.googlegroups.com...
| bonjour,
|
| je voudrai envoi un mail en auto pour chaque client avec des
| informations propres au clients
|
| ma source est une requete mais je peut creer un etat pour chaque
client
Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If Err_Report_Open: Exit Sub End Sub
Et enfin, dans un module à part, la fonction fIsLoaded
Public Function fIsLoaded(ByVal strFormName As String) As Integer If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function
Voilà Chaque destinataire recevra un message personnalisé avec état filtré en pièce jointe.
A+ Arnaud
a écrit dans le message de news:
| bonjour, | | je voudrai envoi un mail en auto pour chaque client avec des | informations propres au clients | | ma source est une requete mais je peut creer un etat pour chaque client
| | Comment faire j'attend vos conseils | Merci |
Anor
Bonjour,
a écrit dans le message de news:
Merci pour ton aide ca marche mais ca prend en messagerie outlook mais j'utilise lotus notes
Bonjour
Tu peux utiliser la commande sendobject.
Hum... tu as bien défini lotus notes comme client de messagerie par défaut ? Ouvrir Internet Explorer, Menu Outils>Options Internet Onglet Programmes
<elnana77@hotmail.com> a écrit dans le message de news:
1115366789.482976.91280@z14g2000cwz.googlegroups.com...
Merci pour ton aide
ca marche mais ca prend en messagerie outlook mais j'utilise lotus
notes
Bonjour
Tu peux utiliser la commande sendobject.
Hum... tu as bien défini lotus notes comme client de messagerie par défaut ?
Ouvrir Internet Explorer, Menu Outils>Options Internet
Onglet Programmes