chris6999
XLDnaute Impliqué
Bonjour
Je n'arrive pas à adapter mon code actuel pour forcer le système à envoyer un mail une BAL pré-identifiée.
Aujourd'hui mon fichier fonctionne correctement mail les mails partent depuis ma boite personnelle alors que je dois les expédier depuis une boite collective.
J'ai essayé de trouver des fils sur le sujet mais je ne parviens pas à modifier mon code initial avec des nouveaux éléments de type :
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
Olmail.SentOnBehalfOfName = "NomBalService"
With Olmail
….
J'ai besoin que les éléments du mail ne soient pas en dur dans le code mais dans ma feuille.
Mon code actuel
Sub mail_avec_lien()
Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.BodyFormat = 2
Corps = "<HTML><BODY>"
MonMessage.To = Sheets("BD").Range("DESTINATAIRE")
MonMessage.cc = ""
MonMessage.bcc = ""
MonMessage.Subject = Sheets("BD").Range("OBJET")
'corps du m-----------------------------------------
Corps = Corps & "<p>" & Sheets("BD").Range("BODY0")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY1")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY2")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY3")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY4")
Corps = Corps & "<p><a href=""file:https://www.excel-downloads.com/"">lien vers Excel download</a></p>"
Corps = Corps & "</BODY></HTML>"
Corps = Corps & "<p>" & Sheets("BD").Range("BODY5")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY6")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY7")
MonMessage.htmlbody = Corps
MonMessage.display
Set MonOutlook = Nothing
End Sub
Je joins un fichier test en PJ, merci de me dire ce que je peux faire.
Merci par avance pour votre aide
Bonne journée à tous
Je n'arrive pas à adapter mon code actuel pour forcer le système à envoyer un mail une BAL pré-identifiée.
Aujourd'hui mon fichier fonctionne correctement mail les mails partent depuis ma boite personnelle alors que je dois les expédier depuis une boite collective.
J'ai essayé de trouver des fils sur le sujet mais je ne parviens pas à modifier mon code initial avec des nouveaux éléments de type :
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
Olmail.SentOnBehalfOfName = "NomBalService"
With Olmail
….
J'ai besoin que les éléments du mail ne soient pas en dur dans le code mais dans ma feuille.
Mon code actuel
Sub mail_avec_lien()
Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.BodyFormat = 2
Corps = "<HTML><BODY>"
MonMessage.To = Sheets("BD").Range("DESTINATAIRE")
MonMessage.cc = ""
MonMessage.bcc = ""
MonMessage.Subject = Sheets("BD").Range("OBJET")
'corps du m-----------------------------------------
Corps = Corps & "<p>" & Sheets("BD").Range("BODY0")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY1")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY2")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY3")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY4")
Corps = Corps & "<p><a href=""file:https://www.excel-downloads.com/"">lien vers Excel download</a></p>"
Corps = Corps & "</BODY></HTML>"
Corps = Corps & "<p>" & Sheets("BD").Range("BODY5")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY6")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY7")
MonMessage.htmlbody = Corps
MonMessage.display
Set MonOutlook = Nothing
End Sub
Je joins un fichier test en PJ, merci de me dire ce que je peux faire.
Merci par avance pour votre aide
Bonne journée à tous