• Initiateur de la discussion Initiateur de la discussion Luinil
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Luinil

XLDnaute Nouveau
Bonjours a tous et a toutes.
J'ai été combler par ma réponse reçus se matin pour un autre problème et reviens donc en force, avec une nouvelle question!

Tout d'abords, merci a ceux qui se pencheront sur mon problème!

J'utilise un code qui copie sans macro, sans objet une feuille de ma base de donné vers un nouveau classeur. Celui-ci l'enregistre sous le nom EnvoisEmail.xls toujours dans le même dossier (il supprime l'ancien et laisse place au nouveau).

Quand cela est fait, et c'est la que je bug, j'ai utilisé l'enregistreur de macro pour transformer une case en liens email puis simuler un clic dessus (se qui m'ouvre, dans mon cas, outlook express )
Voici le code:
Code:
    Range("D7:I7").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "mailto:Lui@hotmail.com?subject=Votre fiche de personnage", TextToDisplay:= _
        "Lui@hotmail.com"
    Range("D7:I7").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Seulement voila, peux importe se qui est marquer dans la case D7:I7, il met le liens Lui@hotmail.com (Au lieu de l'adresse qui y est déjà marquer). Comment remédiez a cela ?

Deuxième question:
Cette technique ouvre l'engin par défaut d'excel (Se que je souhaite, car la base de donné peux changer d'ordinateur), elle y insère l'adresse du liens et le titre : Votre fiche de personnage.
Y inséré un message automatiquement est t'il réalisable avec ma technique ?
Y inséré la pièce jointe EnvoisEmail.xls est t'il réalisable avec ma technique ?

Merci d'avance a tous ceux qui prendront un peu de leur temps pour m'aider!
Luinil
 
Re : Envois par mail

Et avec cette commande, ma demande est impossible ?
Code:
   Dim Adresse As String
    Dim Sujet As String, Texte As String
    Adresse = Range("D7").Text
    Sujet = "Votre fiche de personnage "
    Texte = "Bonjour ," & vbCrLf & vbCrLf & "Voici une copie de votre fiche de personnage. Celle-ci est la plus récente que nous avons en notre possession. " & vbCrLf & vbCrLf & "Si vous avez des commentaires ou pour tout mise à jour, vous n'avez qu'à répondre à se mail." & vbCrLf & vbCrLf & "Votre équipe de mise à Jour." & vbCrLf & vbCrLf & Range("A1:V85").Text
      Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & Adresse & "?subject=" & Sujet & "&Body=" & Texte

& Range("A1:V85").Text
Si j'arrive a faire fonctionné se copier coller dans le corp du message, tout mes problème serait régler je crois.

Luinil
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour