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

Attacher une pièce jointe dans un mail généré avec XL

1 réponse
Avatar
Marc
Salut =E0 tous et =E0 toutes.

Quelqu'un aurait-il une solution (=E0 greffer au code ci-
dessous) pour attacher un fichier =E0 l'envoi d'un mail (via=20
Lotus Notes R5)?
Le code ci-dessous est tr=E8s simple et pr=E9sente l'avantage=20
de ne pas avoir =E0 rechercher la session Notes de=20
l'utilisateur. J'ai tester plusieurs solutions mais elles=20
ne me satisfont pas car elles n'arrivent pas au cas ou=20
Lotus est ferm=E9 =E0 identifier le fichier d'initialisation=20
de Lotus (n utilisateurs avec fichiers .ini cod=E9s) et=20
surtout ne permettent pas l'envoi =E0 plusieurs=20
destinataires.

Voici la proc=E9dure sur laquelle je tente sans succ=E8s de=20
greffer un fichier joint (attachement).

Sub EnvoiMail()

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLTo As String

MailAd =3D Range("B2")
Subj =3D Range("B3")
Msg =3D Msg & Range("B4")
URLTo =3D "mailto:" & MailAd & "?subject=3D" & Subj & "&body=3D"=20
& Msg
ActiveWorkbook.FollowHyperlink Address:=3DURLTo

End Sub

Merci d'avance =E0 celui ou =E0 celle qui aura le temps de se=20
prendre la t=EAte...
;o)

1 réponse

Avatar
Paul V.
T'as fait une recherche sur Google. Il doit y avoir au moins une centaine de
fois que cette question a été posée.

--
HTH

Paul V.

Marc wrote:
Salut à tous et à toutes.

Quelqu'un aurait-il une solution (à greffer au code ci-
dessous) pour attacher un fichier à l'envoi d'un mail (via
Lotus Notes R5)?
Le code ci-dessous est très simple et présente l'avantage
de ne pas avoir à rechercher la session Notes de
l'utilisateur. J'ai tester plusieurs solutions mais elles
ne me satisfont pas car elles n'arrivent pas au cas ou
Lotus est fermé à identifier le fichier d'initialisation
de Lotus (n utilisateurs avec fichiers .ini codés) et
surtout ne permettent pas l'envoi à plusieurs
destinataires.

Voici la procédure sur laquelle je tente sans succès de
greffer un fichier joint (attachement).

Sub EnvoiMail()

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLTo As String

MailAd = Range("B2")
Subj = Range("B3")
Msg = Msg & Range("B4")
URLTo = "mailto:" & MailAd & "?subject=" & Subj & "&body="
& Msg
ActiveWorkbook.FollowHyperlink Address:=URLTo

End Sub

Merci d'avance à celui ou à celle qui aura le temps de se
prendre la tête...
;o)