Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement en
création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = "mail@mail.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement en
création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement en
création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement en
création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
OcMpGcRtJHA.4140@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = "mail@mail.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement en
création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement en
création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" <slawny.francis@laposte.net> a écrit dans le message de
news: %23aKNAvVtJHA.1088@TK2MSFTNGP04.phx.gbl...
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
OcMpGcRtJHA.4140@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = "mail@mail.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" <slawny.francis@laposte.net> a écrit dans le message de
news: %23aKNAvVtJHA.1088@TK2MSFTNGP04.phx.gbl...
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
OcMpGcRtJHA.4140@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = "mail@mail.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" a écrit dans le message de
news:Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de
news:ejShuNdtJHA.4980@TK2MSFTNGP02.phx.gbl...
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" <slawny.francis@laposte.net> a écrit dans le message de
news: %23aKNAvVtJHA.1088@TK2MSFTNGP04.phx.gbl...
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
OcMpGcRtJHA.4140@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = "mail@mail.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" a écrit dans le message de
news:Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant contenir
une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je l'en
remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin du
message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour à tous,
Pour ceux que cela intéresse, voici le code qui permet la création
automatique de mail avec la signature paramétrée dans Outlook :
Private Sub Commande4_Click()
Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.Display
.To = ""
.CC = ""
.Subject = "L'objet du message"
.HTMLBody = "Texte du mail" + .HTMLBody
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le point fondamental, le "secret" qui m'a fait courir, est de placer le
".Display" en premier (ou, du moins, surtout pas en dernier).
Merci à tous,
Richard.
"Thierry" a écrit dans le message de news:Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" a écrit dans le message de
news:Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant
contenir une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je
l'en remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin
du message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour à tous,
Pour ceux que cela intéresse, voici le code qui permet la création
automatique de mail avec la signature paramétrée dans Outlook :
Private Sub Commande4_Click()
Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.Display
.To = "mail1@mail1.fr"
.CC = "mail2@mail2.fr"
.Subject = "L'objet du message"
.HTMLBody = "Texte du mail" + .HTMLBody
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le point fondamental, le "secret" qui m'a fait courir, est de placer le
".Display" en premier (ou, du moins, surtout pas en dernier).
Merci à tous,
Richard.
"Thierry" <th.tg@laposte.net> a écrit dans le message de news:
OqltSVftJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de
news:ejShuNdtJHA.4980@TK2MSFTNGP02.phx.gbl...
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant
contenir une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" <slawny.francis@laposte.net> a écrit dans le message de
news: %23aKNAvVtJHA.1088@TK2MSFTNGP04.phx.gbl...
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
OcMpGcRtJHA.4140@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je
l'en remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = "mail@mail.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin
du message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour à tous,
Pour ceux que cela intéresse, voici le code qui permet la création
automatique de mail avec la signature paramétrée dans Outlook :
Private Sub Commande4_Click()
Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.Display
.To = ""
.CC = ""
.Subject = "L'objet du message"
.HTMLBody = "Texte du mail" + .HTMLBody
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le point fondamental, le "secret" qui m'a fait courir, est de placer le
".Display" en premier (ou, du moins, surtout pas en dernier).
Merci à tous,
Richard.
"Thierry" a écrit dans le message de news:Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" a écrit dans le message de
news:Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant
contenir une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message de
news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je
l'en remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre automatiquement
en création de mail manuelle, ne s'intègre pas dans le mail généré par
Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin
du message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour,
Quasi le meme code que j'ai suggere, mais avec plus d'etape.
Par contre moi je n'ai pas de probleme de mettre le display a la fin...
Du moment que c'est tout bon pour toi... :o)
Tout va bien,
@+
Michel.
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Pour ceux que cela intéresse, voici le code qui permet la création
automatique de mail avec la signature paramétrée dans Outlook :
Private Sub Commande4_Click()
Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.Display
.To = ""
.CC = ""
.Subject = "L'objet du message"
.HTMLBody = "Texte du mail" + .HTMLBody
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le point fondamental, le "secret" qui m'a fait courir, est de placer le
".Display" en premier (ou, du moins, surtout pas en dernier).
Merci à tous,
Richard.
"Thierry" a écrit dans le message de news:Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" a écrit dans le message de
news:Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant
contenir une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message
de news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je
l'en remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre
automatiquement en création de mail manuelle, ne s'intègre pas dans
le mail généré par Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin
du message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour,
Quasi le meme code que j'ai suggere, mais avec plus d'etape.
Par contre moi je n'ai pas de probleme de mettre le display a la fin...
Du moment que c'est tout bon pour toi... :o)
Tout va bien,
@+
Michel.
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
esAwFmvtJHA.3988@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Pour ceux que cela intéresse, voici le code qui permet la création
automatique de mail avec la signature paramétrée dans Outlook :
Private Sub Commande4_Click()
Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.Display
.To = "mail1@mail1.fr"
.CC = "mail2@mail2.fr"
.Subject = "L'objet du message"
.HTMLBody = "Texte du mail" + .HTMLBody
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le point fondamental, le "secret" qui m'a fait courir, est de placer le
".Display" en premier (ou, du moins, surtout pas en dernier).
Merci à tous,
Richard.
"Thierry" <th.tg@laposte.net> a écrit dans le message de news:
OqltSVftJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de
news:ejShuNdtJHA.4980@TK2MSFTNGP02.phx.gbl...
Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant
contenir une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "mail@mail.fr" &
"cc=mail1@mail1.fr" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" <slawny.francis@laposte.net> a écrit dans le message
de news: %23aKNAvVtJHA.1088@TK2MSFTNGP04.phx.gbl...
Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
OcMpGcRtJHA.4140@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je
l'en remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = "mail@mail.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre
automatiquement en création de mail manuelle, ne s'intègre pas dans
le mail généré par Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin
du message généré par le code ?
Merci d'avance de vos conseils,
Richard.
Bonjour,
Quasi le meme code que j'ai suggere, mais avec plus d'etape.
Par contre moi je n'ai pas de probleme de mettre le display a la fin...
Du moment que c'est tout bon pour toi... :o)
Tout va bien,
@+
Michel.
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Pour ceux que cela intéresse, voici le code qui permet la création
automatique de mail avec la signature paramétrée dans Outlook :
Private Sub Commande4_Click()
Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.Display
.To = ""
.CC = ""
.Subject = "L'objet du message"
.HTMLBody = "Texte du mail" + .HTMLBody
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le point fondamental, le "secret" qui m'a fait courir, est de placer le
".Display" en premier (ou, du moins, surtout pas en dernier).
Merci à tous,
Richard.
"Thierry" a écrit dans le message de news:Bonjour,
Un début de réponse...
http://www.outlookcode.com/threads.aspx?forumid=2&messageid'341
Bon courage
"Richard_35" a écrit dans le message de
news:Bonjour Francis,
Merci de ta réponse... quand même...
Explication des "..." :
Dans Outlook, la signature est un "objet" à part entière pouvant
contenir une image et du texte. En création de mail, elle s'insère,
automatiquement, à la fin du texte du mail. Il ne s'agit donc pas d'une
simple chaîne de caractères que l'on peut concaténer au corps du texte
(action qui aurait été de mon modeste niveau...).
Autre méthode (plus simple) :
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet"
=> insère la signature Outlook.
Le code :
"Application.FollowHyperlink "mailto:" & "" &
"cc=" & "?subject=Sujet" & "&body=Avis de non conformité"
=> n'insère pas la signature Outlook.
Donc, le fait de forcer un texte (body) n'insère pas la signature
Outlook.
Si quelqu'un avait un tuyau, il serait le bienvenu (le quelqu'un et le
tuyau...)
Merci de vos conseils,
Richard.
"Francis SLAWNY" a écrit dans le message
de news: %Il suffit d'ajouter la signature au corps de message.
Signature = " blablabla......"
.Body = "Lecorps du message" & Signature
"Richard_35" a écrit dans le message de news:Bonjour à tous,
Le code suivant, sur le site de 3stone, fonctionne très bien et je
l'en remercie.
Private Sub Commande0_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = ""
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.Send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Le seul problème, c'est que la signature qui s'intègre
automatiquement en création de mail manuelle, ne s'intègre pas dans
le mail généré par Access.
Existe-t-il une solution pour que cette signature s'intègre à la fin
du message généré par le code ?
Merci d'avance de vos conseils,
Richard.