récupérer la signature faite avec Outlook 2003 et XP2

Re : récupérer la signature faite avec Outlook 2003 et XP2

Voici une solution :
Range("A8").Value = Replace(Signature, Chr(13), "")

Re : récupérer la signature faite avec Outlook 2003 et XP2

Super bien tu est très forte je te salue chapeau bas, je m’incline.
Milles mercis pour ce travail, enfin je vais pouvoir mettre ma signature en automatique dans mes mails.
Encore merci et bonne soirée.

Ps : il en faux beaucoup de merci pour acheter une baguette de pain, si je peut te renvoyer l’ascenseur je ni manquerais pas

Amicalement
Votre serviteur
La Vouivre

Re : récupérer la signature faite avec Outlook 2003 et XP2

Bonjour à tous,

Ca va faire un peu déterrage de topic, mais avant de vous écrire, j'ai retourné tout le forum en vain et celui-ci est le moins éligné de mon sujet... Pourtant d'habitude je m'en sors avec ce qu'il existe déjà...

Aussi, voic ma problématique : je réalise un fichier d'aide pour des utilisateur sous Excel (j'ai pas le choix du support...)
A l'intérieur de ce dernier, je souhaite mettre une "boite à idée" : en fait mes utilisateurs clic sur un bouton pour m'envoyer un mail prédéterminé (une règle de rangement dans Outlook et toujours la même structure).

Le problème c'est qu'il faudrait que la signature de l'utilisateur remonte automatiquement et c'est que ça bloque...............

Voici où j'en suis:

Sub Bouton1_QuandClic()

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
With myItem
'Cette fonction est utilisée pour un envoie manuel de l'e-mail
myItem.Display
'Sujet du mail
myItem.Subject = "FRIDA - GEX - Boite à idées "
'destinataire de l'email
sendto = "xxx@yyy.com"
'fait afficher l'adresse mail dans l'email
myItem.To = sendto
'corps du texte de l'email
HTMLbody = "Bonjour Guillaume," & vbCrLf & vbCrLf & _
"Pour que tu puisses mieux comprendre ma demande, voici ma fonction dans le processus P-to-P :" & vbCrLf & vbCrLf & _
"Voici l'objet de ma proposition d'amélioration : " & vbCrLf & vbCrLf & _
"Tu trouveras ci-dessous ma proposition plus en détail :" & FileDate & vbCrLf & vbCrLf & _
"Cordialement," & vbCrLf & vbCrLf & _
"PS : Si vous modifier l'objet prédéfini du message, je ne prendrais pas en comptevotre message !"
myItem.Body = HTMLbody
End With

End Sub




Je vous remercie par avance,
Guillaume

PS : Attention pousse souris débutant en VBA

Re : récupérer la signature faite avec Outlook 2003 et XP2

Bon j'ai réussi à me trouver une pseudo solution avec Application.UserName. Le code marche bien et fait apparaître l'email qui me sera destiné au premier plan. Une fois qu'on rebascule sur Excel, on remercie même le contributeur.

Par contre, il très très probable que le code soit lourd et que certaines lignes soient inutiles....

Une dernière chose, la ligne qui essaye de donner des caractéristques au texte dans Outlook ne marche pas.... ??? (Corp = etc.)

Ci-dessous mon magnifique code issu de - on va les compter - quelques copier/coller et modification en provenance de XLD.

Merci XLD


Sub Bouton1_QuandClic()
Application.WindowState = xlMinimized
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)

With myItem

CORPS = "<font style='font-family: Times New Roman ;font-size: 12pt ;' color=black>" & CORPS & "</font>"

HTMLBody = CORPS
'Cette fonction est utilisée pour un envoie manuel de l'e-mail
myItem.display
'Sujet du mail
myItem.Subject = "FRIDA - GEX - Boite à idées "
'destinataire de l'email
sendto = "xxx@yyy.com"
'fait afficher l'adresse mail dans l'email
myItem.to = sendto
'corps du texte de l'email
HTMLBody = "Bonjour Guillaume," & vbCrLf & vbCrLf & _
"Pour que tu puisses mieux comprendre ma demande, voici ma fonction dans le processus P-to-P :" & vbCrLf & vbCrLf & _
"Voici l'objet de ma proposition d'amélioration : " & vbCrLf & vbCrLf & _
"Tu trouveras ci-dessous ma proposition plus en détail :" & FileDate & vbCrLf & vbCrLf & _
"Cordialement," & vbCrLf & vbCrLf & _
Application.UserName & vbCrLf & vbCrLf & _
"PS 1 : Si vous modifier l'objet prédéfini du message, je ne prendrais pas en compte votre message !" & vbCrLf & vbCrLf & _
"PS 2 : Le passage au Web 2.0 n'est pas prévu ;-)"

myItem.Body = HTMLBody

'Pour envoyé le fichier actif en PJ :
'myItem.Attachments.Add ActiveWorkbook.FullName

myItem.Save

End With

Set OutMail = Nothing
Set OutApp = Nothing


'Message de remerciements
If Application.ThisWorkbook.Sheets("Index").Activate Then
Application.ThisWorkbook.Sheets("Index").Activate
Application.WindowState = xlMaximized
MsgBox "La Direction xxx vous remercie pour votre contribution", vbInformation
End If
End Sub