Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Besoin d'être aider sur...

Besoin d'être aider sur...

2 réponses
Avatar
RV
Bonjour,
J'utilise ActiveWorkbook.SendMail Recipients:="" pour avoir la fenêtre
"nouveau message" qui s'affiche sans l'adresse de mon correspondant mais
qui, malheureusement insert en pièce jointe le classeur.
Hors ce que je souhaite obtenir est justement l'inverse: c'est à dire la
fenêtre "nouveau message" avec l'adresse de mon correspondant mais sans
pièce jointe.
Pour ce faire je pars d'un UserForm sur lequel Label1.Caption=" à l'adresse
de mon correspondant" avec comme évènement : Label1_Click.
J'ai essayé Shell "chemin OE" mais cela a pour effet d'ouvrir ce
dernier.(msimn.exe)
Qu'elle est alors la solution à mon problème?
Quelqu'un aurait-il déjà résolu ce problème? J'ai également cherché sur
Excelabo mais n'ai pas su trouver.
Merci à vous pour vos suggestions.
Cordialement
RV
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
michdenis
Bonjour RV,

Tu peux adapter cet exemple à ton besoin.
Dans la dernière section de la procédure, tu choisis la ligne de commande que tu veux exécuter et inhibe les autres.

'-----------------------------------------
Private Sub EnvoiCourriel()

Dim Dest As String, Objet As String
Dim Corps As String, Rep As String

Dest = ""
'Définir le chemin et le fichier à expédier.
Rep = "C:Mes documentsclasseur1.xls"

Objet = "Est-ce que tu l'as reçu ce ... fichier?"

Corps = "Bonjour The Boss," & vbCrLf & vbCrLf
Corps = Corps & "Je t'en veux un peu puisqu'en rédigeant cette procédure" & vbCrLf
Corps = Corps & "Je me suis arraché le dernier poil sur le coco." & vbCrLf & vbCrLf
Corps = Corps & "Espérons que cela va fonctionner cette fois pour toi." & vbCrLf & vbCrLf
Corps = Corps & "Salutations!" & vbCrLf & vbCrLf
Corps = Corps & "MichDenis"

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & _
"?subject=" & Objet & _
"&Body=" & Corps, vbMaximizedFocus

'Active la ligne de code qui correspond à ton exigence.

'Envoyer le fichier sans fichier attaché
'SendKeys "%s"

'Pour afficher le courriel + fichier attaché
'SendKeys "%I" & "p" & Rep & "~"

'Envoyer le courriel + fichier attaché de façon automatique
SendKeys "%I" & "p" & Rep & "~" & "%s"

End Sub
'-----------------------------------------


Salutations!



"RV" a écrit dans le message de news:
Bonjour,
J'utilise ActiveWorkbook.SendMail Recipients:="" pour avoir la fenêtre
"nouveau message" qui s'affiche sans l'adresse de mon correspondant mais
qui, malheureusement insert en pièce jointe le classeur.
Hors ce que je souhaite obtenir est justement l'inverse: c'est à dire la
fenêtre "nouveau message" avec l'adresse de mon correspondant mais sans
pièce jointe.
Pour ce faire je pars d'un UserForm sur lequel Label1.Caption=" à l'adresse
de mon correspondant" avec comme évènement : Label1_Click.
J'ai essayé Shell "chemin OE" mais cela a pour effet d'ouvrir ce
dernier.(msimn.exe)
Qu'elle est alors la solution à mon problème?
Quelqu'un aurait-il déjà résolu ce problème? J'ai également cherché sur
Excelabo mais n'ai pas su trouver.
Merci à vous pour vos suggestions.
Cordialement
RV
Avatar
RV
Bonsoir Michdenis,
Merci pour cette procédure et l'aide apportée. Cela va me permettre de
continuer (...).
Bonne soirée.
Cordialement
RV

"michdenis" a écrit dans le message de news:

Bonjour RV,

Tu peux adapter cet exemple à ton besoin.
Dans la dernière section de la procédure, tu choisis la ligne de commande
que tu veux exécuter et inhibe les autres.

'-----------------------------------------
Private Sub EnvoiCourriel()

Dim Dest As String, Objet As String
Dim Corps As String, Rep As String

Dest = ""
'Définir le chemin et le fichier à expédier.
Rep = "C:Mes documentsclasseur1.xls"

Objet = "Est-ce que tu l'as reçu ce ... fichier?"

Corps = "Bonjour The Boss," & vbCrLf & vbCrLf
Corps = Corps & "Je t'en veux un peu puisqu'en rédigeant cette procédure"
& vbCrLf
Corps = Corps & "Je me suis arraché le dernier poil sur le coco." & vbCrLf
& vbCrLf
Corps = Corps & "Espérons que cela va fonctionner cette fois pour toi." &
vbCrLf & vbCrLf
Corps = Corps & "Salutations!" & vbCrLf & vbCrLf
Corps = Corps & "MichDenis"

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & _
"?subject=" & Objet & _
"&Body=" & Corps, vbMaximizedFocus

'Active la ligne de code qui correspond à ton exigence.

'Envoyer le fichier sans fichier attaché
'SendKeys "%s"

'Pour afficher le courriel + fichier attaché
'SendKeys "%I" & "p" & Rep & "~"

'Envoyer le courriel + fichier attaché de façon automatique
SendKeys "%I" & "p" & Rep & "~" & "%s"

End Sub
'-----------------------------------------


Salutations!



"RV" a écrit dans le message de news:

Bonjour,
J'utilise ActiveWorkbook.SendMail Recipients:="" pour avoir la fenêtre
"nouveau message" qui s'affiche sans l'adresse de mon correspondant mais
qui, malheureusement insert en pièce jointe le classeur.
Hors ce que je souhaite obtenir est justement l'inverse: c'est à dire la
fenêtre "nouveau message" avec l'adresse de mon correspondant mais sans
pièce jointe.
Pour ce faire je pars d'un UserForm sur lequel Label1.Caption=" à
l'adresse
de mon correspondant" avec comme évènement : Label1_Click.
J'ai essayé Shell "chemin OE" mais cela a pour effet d'ouvrir ce
dernier.(msimn.exe)
Qu'elle est alors la solution à mon problème?
Quelqu'un aurait-il déjà résolu ce problème? J'ai également cherché sur
Excelabo mais n'ai pas su trouver.
Merci à vous pour vos suggestions.
Cordialement
RV