Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

envoi d'un email à plusieurs destinataires à l'aide d'une case à cocher dans un formulaire.

2 réponses
Avatar
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.

Ralyka

2 réponses

Avatar
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://&quot" 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://&quot" 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

Avatar
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://&quot" 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://&quot" 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..............