Utilisation d'une textbox dans un mail outlook

Yakou · 23 Avril 2013

Bonjour,

Et me voila pour ma première question brulante, sur une chose que je n'ai pu résoudre dans mon code après plusieurs test.

Je vous fait un résumé simple:

Dans Outlook suite à la création d'un objet.mail via vba.
Utilisation d'une textbox concaténé avec du texte a intégrer dans le mail.bodyHTML.

Le code ci-dessous fonctionne avec l'utilisation d' "imput()".

J'aurai préféré utiliser un "userform.textbox" pour optimiser les contrôles de texte et surtout dans le cas ou j'ai d'autres mails type a créer.
Multiplier les input() = multiplier les clicks sur OK ce qui devient vite lourd à gérer.

Mais voila après avoir créé un userform.textbox1 (qui remplace ID dans le code).
la valeur enregistrée n'est pas prise en compte (idem si j'enregistre le résulta de la textbox1 dans la variable ID).

J'ai mis les champs concerné en Gras pour faciliter votre lecture.

Sub Mail_MDP()

'Déclaration des objets

Dim MonApply As Outlook.Application
Dim MonMail As Outlook.MailItem
Dim texte, ID As String

'Instance des Objets
Set MonApply = Outlook.Application 'Instance de l'application
Set MonMail = MonApply.CreateItem(olMailItem) 'Instance du nouvel E-mail

ID = InputBox("saisir GID")

texte = texte & "<HTML>" & Chr(13)
texte = texte & "<BODY>" & Chr(13)
texte = texte & " Bonjour, Ceci est une procédure pour Initialiser un nouveau mot de passe.. Voici votre Identifiant de connexion:" & Chr(10)
texte = texte & " " & ID & "" & Chr(10)
texte = texte & "</BODY>" & Chr(13)
texte = texte & "</HTML>" & Chr(13)

'Affichage du nouvel Objet Mail

With MonMail

.To = ""
.CC = ""
.Subject = "Mot de passe"
.Display
'ajout de la signature n°8
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(8).Execute
.BodyFormat = olFormatHTML
'concatène variable texte + signature.
.HTMLBody = texte & MonMail.HTMLBody
'.Send

End With

'Vide des instances
Set MonApply = Nothing
Set MonMail = Nothing

End Sub

Pour info j'utilise excel et outlook 2007.

En cherchant sur ce forum, j'ai trouvé un sujet similaire mais sans réponse.

https://www.excel-downloads.com/threads/macro-mail-avec-microsoft-outlook.79870/

J'ai recherché sur le net mais je n'ai pas trouvé une solution simple et efficace.

Bon courage

Utilisation d'une textbox dans un mail outlook

Yakou

XLDnaute Nouveau

Discussions similaires