XL 2016 envoye mail en CC s'affiche en objet.

[Dydou76]

bonjour,
j'ai un code pour envoyer une feuille de mon classeur en mail je met Cc = "adresse email"
cette adresse est dans une cellule. Mon souci c'est que cette adresse mail se copie dans la ligne "Sujet" de Outlook plutôt que de se mettre dans CC...
je ne vois pas ou est l'erreur. Pourriez vous m'aider ? voici mon code.
Merci d'avance

With Sheets("base")

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, CC As String
MailAd = .Range("I2") 'broddenis@hotmail.com
Subj = .Range("J2") 'Objet Fiche Agir
Msg = .Range("K2") 'Veuillez trouver ci-joint la Fiche Agir
CC = .Range("I3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "Fiche Agir" & CC & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto


End With

 

[Roland_M]

Bonsoir,

EDIT: à reprendre j'ai corrigé une erreur dans les variables !?

utilisé tel quel ton CC n'est qu'un simple chaîne de caractères !

ceci en exemple pour toi comprendre:

Sub EnvoiMail_FollowHyperlink() 'mail simple par lien
Dim Adres$, Sujet$, Msg$, URLto$
Adres = "nom@wanadoo.fr"
Sujet = "ceci est le sujet"
Msg = "ceci est le corps du message"
'URLto = "mailto:" & Adres$ & "?cc=" & Adres$ & "&bcc=" & Adres$ & "&subject=" & Sujet & "&body=" & Msg$
'URLto = "mailto:" & Adres$ & "?bcc=" & Adres$ & "&subject=" & Sujet & "&body=" & Msg$
URLto = "mailto:" & Adres$ & "?subject=" & Sujet & "&body=" & Msg$
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub


ou encore:

Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = AdresDestinMail$
.CC = AdresMailCC$
.BCC = AdresMailBCC$
.Subject = Sujet$
.Body = Message$
'.Attachments.Add < pour joindre un fichier
.Send '<<<<<<<<<<<< Pour envoyer directement
'.Display '<<<<<<<< Pour voir le mail avant envoi
'^^^^^^^ après .Display pour confirmation auto > SendKeys "^{ENTER}"
End With


voir aussi ici:
https://www.excel-downloads.com/threads/ci-joint-un-classeur-pour-envoi-mail-en-smtp-avec-cdo-avec-ou-sans-pièce-jointe.216747/

 

[Dydou76]

Merci beaucoup pour ton aide je vais etudier ça mais pour envoyer une feuille de mon classeur je met Attachments.Add = sheet("non de la feuille") mais ça ne marche pas..

 

[Roland_M]

bonjour,

évidemment !
il faut sauvegarder la feuille et mettre le chemin avec le nom du fichier à envoyer !

 

[Roland_M]

re

voir avec ceci

'exemple ! je n'ai pas testé car je n'ai pas outlook !
'il suffit d'adapter les variables
'ces variables peuvent être extraites d'une cellule ...
'plusieurs adresses mail doivent être séparées par un ;
Sub EnvoiMailOutlook()

Dim FilFormatSVG, ExtSVG$, FichSVG$, PathFichSVG$ '<ceci sera CheminNomFichier à envoyer
' ----- init ici tes variables -----
AdresDestinMail$ = "" '< ici ton adresse mail par exemple pour essai
AdresMailCC$ = "" '<
AdresMailBCC$ = "" '<
Sujet$ = "" '<
Message$ = "" '<
NomDuFichierEnvoiTemp$ = "MonFichier" '<=- ICI NOM DU FICHIER A ADAPTER ! sans extension !
FeuilEnvoi$ = "Feuil2"                '<=- ICI NOM DE LA FEUILLE A ADAPTER !
'le fichier sera sauvegardé dans le dossier en cours de ce classeur
' -----------------------------------------


' --- save la feuille ---
Application.DisplayAlerts = False 'ceci pour éviter le msg d'excel
FilFormatSVG = ThisWorkbook.FileFormat 'format
ExtSVG$ = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") + 1) 'extension
FichSVG$ = ThisWorkbook.Path & "\" & NomDuFichierEnvoiTemp$ & "." & ExtSVG$ 'nom du fichier avec extension
Sheets(FeuilEnvoi$).Copy 'copy la feuille
ActiveWorkbook.SaveAs Filename:=FichSVG$, FileFormat:=FilFormatSVG 'save le fichier dans le dossier de ton classeur
PathFichSVG$ = ActiveWorkbook.FullName 'CheminNomFichier à envoyer
ActiveWorkbook.Close
Application.DisplayAlerts = True

'--- envoie mail ---
Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = AdresDestinMail$
.CC = AdresMailCC$
.BCC = AdresMailBCC$
.Subject = Sujet$
.Body = Message$
.Attachments.Add PathFichSVG$
.Send '<<<<<<<<<<<< Pour envoyer directement
'.Display '<<<<<<<< Pour voir le mail avant envoi
'^^^^^^^^ après .Display pour confirmation auto mettre > SendKeys "^{ENTER}"
End With
OutApp = Nothing: OutMail = Nothing 'libère la mémoire
End Sub

 

[Dydou76]

Merci, je suis trop novice lol donc je pietinne mais j'espere bien y arriver

 

[Dydou76]

Bonjours,
Après des heures et des jours de recherche pour avancer dans mon projet professionnelle, je n'arrive pas a faire ce que je veux !!! Alors je me permet de vous demander votre aide.
le fichier joint s'ouvre avec un identifiant et mot de passe (qui est affiché à l'ouverture du programme pour que vous puissiez m'aider lol).
je voudrais pour la fiche "AGIR" que lorsque tout les champs sont renseignés, en cliquant sur "valider" que la feuille qui se nome "AGIR" (feuil5) soit envoyé par mail avec les adresses mail qui se trouverons dans la feuille "Base" (pour pouvoir les changer en cas de besoin).
En validant vous devrez renseigner un mois de l'année dans lequel la fiche sera enregistré en PDF (ça fonctionne chez moi et j’espère que ça ne vous gênera pas).
Je n'arrive pas à ce que le mail s'envoi automatiquement à la validation de la fiche AGIR. Il faut que ce fichier envoyé s'appel Fiche_Agir_2018-0001.xlsm (numero de fiche agir en cellule N5 de la feuil5)
Je ne vous parle pas des autres page puisque je n'aurai plus qu'a prendre l'exemple de la page AGIR pour faire la même chose aux autres feuilles.

Voila en espérant avoir été clair et surtout que ma demande ne soit pas trop exigeante.
J'attend avec impatience vos retour.
Merci beaucoup

 

[Roland_M]

re

malheureusement je n'aurais pas le temps !
j'ai des modèles tout prêts mais si tu ne sais pas les incorporer ça ne va pas le faire !

voir cet exemple ou j'ai collé mon classeur exemple dans le tient et qui permet d'envoyer une feuille située dans le classeur
ou joindre un fichier qui serait sur un disque !

je n'ai rien fini d'adapter c'est seulement pour toi voir de quoi il en retourne et à quoi ça ressemble !
dans la cellule A1 il y a un commentaire !
c'est dans la la feuille que l'on place le message et les adresses mail
il s'agit d'envoi avec la méthode cdo en direct !