envoi d'un email à plusieurs destinataires à l'aide d'une case à cocher dans un formulaire.
2 réponses
ralyka
Bonjour =E0 tous et =E0 toutes,
J'ai un formulaire o=F9 j'ai cr=E9e une liste d'envoi d'un e-mail =E0
plusieurs destinataires.
A cot=E9 de cette liste j'ai plac=E9 un bouton avec le code:
Private Sub Cmd_E_Mail_Click()
Dim HLK As Hyperlink
Set HLK =3D Cmd_E_Mail.Hyperlink
If InStr(1, Me.E_Mail, "@") > 0 Then
If Left(Me.E_Mail, 7) =3D "mailto:" Then
HLK.Address =3D Me.E_Mail
Else
HLK.Address =3D "mailto:" & Me.E_Mail
End If
ElseIf InStr(1, Me.E_Mail, "http://") > 0 Then
HLK.Address =3D Me.E_Mail
Else
HLK.Address =3D "http://" & Me.E_Mail & "/"
End If
Set HLK =3D Nothing
End Sub
Mon probl=E8me est que la liste est coup=E9e. J'imagine que la taille d'un
Hyperlink est limit=E9e. Comment faire pour avoir la liste enti=E8re dans
le champ "To:" de Outlook?
Merci de votre aide et tr=E8s bon apr=E8s midi =E0 tous.
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
ralyka
On 6 sep, 13:37, ralyka wrote:
Bonjour à tous et à toutes,
J'ai un formulaire où j'ai crée une liste d'envoi d'un e-mail à plusieurs destinataires.
A coté de cette liste j'ai placé un bouton avec le code:
Private Sub Cmd_E_Mail_Click() Dim HLK As Hyperlink Set HLK = Cmd_E_Mail.Hyperlink If InStr(1, Me.E_Mail, "@") > 0 Then If Left(Me.E_Mail, 7) = "mailto:" Then HLK.Address = Me.E_Mail Else HLK.Address = "mailto:" & Me.E_Mail End If ElseIf InStr(1, Me.E_Mail, "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://") > 0 Then HLK.Address = Me.E_Mail Else HLK.Address = "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://" & Me.E_Mail & "/" End If Set HLK = Nothing End Sub
Mon problème est que la liste est coupée. J'imagine que la taille d'un Hyperlink est limitée. Comment faire pour avoir la liste entière dans le champ "To:" de Outlook?
Merci de votre aide et très bon après midi à tous.
Ralyka
Bonjour à tous et à toutes,
Est-ce que quelqu'un pourrait me donner un coup de main pour résoudre ce problème? Aujourd'hui j'aurai justement besoin d'utiliser ce code....
Merci!
Ralyka
On 6 sep, 13:37, ralyka <ral...@hotmail.com> wrote:
Bonjour à tous et à toutes,
J'ai un formulaire où j'ai crée une liste d'envoi d'un e-mail à
plusieurs destinataires.
A coté de cette liste j'ai placé un bouton avec le code:
Private Sub Cmd_E_Mail_Click()
Dim HLK As Hyperlink
Set HLK = Cmd_E_Mail.Hyperlink
If InStr(1, Me.E_Mail, "@") > 0 Then
If Left(Me.E_Mail, 7) = "mailto:" Then
HLK.Address = Me.E_Mail
Else
HLK.Address = "mailto:" & Me.E_Mail
End If
ElseIf InStr(1, Me.E_Mail, "http://") > 0 Then
HLK.Address = Me.E_Mail
Else
HLK.Address = "http://" & Me.E_Mail & "/"
End If
Set HLK = Nothing
End Sub
Mon problème est que la liste est coupée. J'imagine que la taille d'un
Hyperlink est limitée. Comment faire pour avoir la liste entière dans
le champ "To:" de Outlook?
Merci de votre aide et très bon après midi à tous.
Ralyka
Bonjour à tous et à toutes,
Est-ce que quelqu'un pourrait me donner un coup de main pour résoudre
ce problème? Aujourd'hui j'aurai justement besoin d'utiliser ce
code....
J'ai un formulaire où j'ai crée une liste d'envoi d'un e-mail à plusieurs destinataires.
A coté de cette liste j'ai placé un bouton avec le code:
Private Sub Cmd_E_Mail_Click() Dim HLK As Hyperlink Set HLK = Cmd_E_Mail.Hyperlink If InStr(1, Me.E_Mail, "@") > 0 Then If Left(Me.E_Mail, 7) = "mailto:" Then HLK.Address = Me.E_Mail Else HLK.Address = "mailto:" & Me.E_Mail End If ElseIf InStr(1, Me.E_Mail, "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://") > 0 Then HLK.Address = Me.E_Mail Else HLK.Address = "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://" & Me.E_Mail & "/" End If Set HLK = Nothing End Sub
Mon problème est que la liste est coupée. J'imagine que la taille d'un Hyperlink est limitée. Comment faire pour avoir la liste entière dans le champ "To:" de Outlook?
Merci de votre aide et très bon après midi à tous.
Ralyka
Bonjour à tous et à toutes,
Est-ce que quelqu'un pourrait me donner un coup de main pour résoudre ce problème? Aujourd'hui j'aurai justement besoin d'utiliser ce code....
Merci!
Ralyka
ralyka
On 7 sep, 07:34, ralyka wrote:
On 6 sep, 13:37, ralyka wrote:
Bonjour à tous et à toutes,
J'ai un formulaire où j'ai crée une liste d'envoi d'un e-mail à plusieurs destinataires.
A coté de cette liste j'ai placé un bouton avec le code:
Private Sub Cmd_E_Mail_Click() Dim HLK As Hyperlink Set HLK = Cmd_E_Mail.Hyperlink If InStr(1, Me.E_Mail, "@") > 0 Then If Left(Me.E_Mail, 7) = "mailto:" Then HLK.Address = Me.E_Mail Else HLK.Address = "mailto:" & Me.E_Mail End If ElseIf InStr(1, Me.E_Mail, "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://") > 0 Then HLK.Address = Me.E_Mail Else HLK.Address = "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://" & Me.E_Mail & "/" End If Set HLK = Nothing End Sub
Mon problème est que la liste est coupée. J'imagine que la taille d 'un Hyperlink est limitée. Comment faire pour avoir la liste entière da ns le champ "To:" de Outlook?
Merci de votre aide et très bon après midi à tous.
Ralyka
Bonjour à tous et à toutes,
Est-ce que quelqu'un pourrait me donner un coup de main pour résoudre ce problème? Aujourd'hui j'aurai justement besoin d'utiliser ce code....
Merci!
Ralyka- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Toujours personne? Sniffffffffffffff..............
On 7 sep, 07:34, ralyka <ral...@hotmail.com> wrote:
On 6 sep, 13:37, ralyka <ral...@hotmail.com> wrote:
Bonjour à tous et à toutes,
J'ai un formulaire où j'ai crée une liste d'envoi d'un e-mail à
plusieurs destinataires.
A coté de cette liste j'ai placé un bouton avec le code:
Private Sub Cmd_E_Mail_Click()
Dim HLK As Hyperlink
Set HLK = Cmd_E_Mail.Hyperlink
If InStr(1, Me.E_Mail, "@") > 0 Then
If Left(Me.E_Mail, 7) = "mailto:" Then
HLK.Address = Me.E_Mail
Else
HLK.Address = "mailto:" & Me.E_Mail
End If
ElseIf InStr(1, Me.E_Mail, "http://") > 0 Then
HLK.Address = Me.E_Mail
Else
HLK.Address = "http://" & Me.E_Mail & "/"
End If
Set HLK = Nothing
End Sub
Mon problème est que la liste est coupée. J'imagine que la taille d 'un
Hyperlink est limitée. Comment faire pour avoir la liste entière da ns
le champ "To:" de Outlook?
Merci de votre aide et très bon après midi à tous.
Ralyka
Bonjour à tous et à toutes,
Est-ce que quelqu'un pourrait me donner un coup de main pour résoudre
ce problème? Aujourd'hui j'aurai justement besoin d'utiliser ce
code....
Merci!
Ralyka- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Toujours personne? Sniffffffffffffff..............
J'ai un formulaire où j'ai crée une liste d'envoi d'un e-mail à plusieurs destinataires.
A coté de cette liste j'ai placé un bouton avec le code:
Private Sub Cmd_E_Mail_Click() Dim HLK As Hyperlink Set HLK = Cmd_E_Mail.Hyperlink If InStr(1, Me.E_Mail, "@") > 0 Then If Left(Me.E_Mail, 7) = "mailto:" Then HLK.Address = Me.E_Mail Else HLK.Address = "mailto:" & Me.E_Mail End If ElseIf InStr(1, Me.E_Mail, "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://") > 0 Then HLK.Address = Me.E_Mail Else HLK.Address = "http://"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://" & Me.E_Mail & "/" End If Set HLK = Nothing End Sub
Mon problème est que la liste est coupée. J'imagine que la taille d 'un Hyperlink est limitée. Comment faire pour avoir la liste entière da ns le champ "To:" de Outlook?
Merci de votre aide et très bon après midi à tous.
Ralyka
Bonjour à tous et à toutes,
Est-ce que quelqu'un pourrait me donner un coup de main pour résoudre ce problème? Aujourd'hui j'aurai justement besoin d'utiliser ce code....
Merci!
Ralyka- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Toujours personne? Sniffffffffffffff..............