Bonjour,
D'abord je vous remercie de l'attention que vous accorderez à mon problème.
J'ai créer une table excel liée à un base access, et sur excel j'ai saisi le code ci-dessous afin d'envoyer par mail via outlook mon classeur (xlsm) vers destinateur prédéfini. Ce code(que j'ai trouver sur le net) marche très bien mais le seul souci c'est qu'il n'envoie pas directement le mail il me faut encore qu'il sur "envoyer" dans outlook.
Je veux donc:
-que mon code vb envoie directement le mail à son destinataire
-Mettre ce code dans macro que je pourrais exécuter depuis un batch (ou une commande MS-dos)
je bloque depuis quelques temps à ce niveau, je fais appel aux experts Excel.
Le code utilisé est le suivant:
Merci d'avance pour votre aide
Kalmard
D'abord je vous remercie de l'attention que vous accorderez à mon problème.
J'ai créer une table excel liée à un base access, et sur excel j'ai saisi le code ci-dessous afin d'envoyer par mail via outlook mon classeur (xlsm) vers destinateur prédéfini. Ce code(que j'ai trouver sur le net) marche très bien mais le seul souci c'est qu'il n'envoie pas directement le mail il me faut encore qu'il sur "envoyer" dans outlook.
Je veux donc:
-que mon code vb envoie directement le mail à son destinataire
-Mettre ce code dans macro que je pourrais exécuter depuis un batch (ou une commande MS-dos)
je bloque depuis quelques temps à ce niveau, je fais appel aux experts Excel.
Le code utilisé est le suivant:
Code:
Sub envoimail()
'test sur agence d'Auxerre
Workbooks.Open Filename:= _
"C:\Mes Documents\FD\PARIS.xls"
Dim Outlook As Object
Dim Mail As Object
Dim Dest As String
Dim Objet As String
Dim Corps As String
Dest = "papaye@moimeme.com" 'adresse du destinataire
Objet = "Bilan général'"
'Exemple de corps de texte avec texte et sauts de ligne
Corps = "Bonjour, " & _
vbCrLf & vbCrLf & _
"Ci-joint le fichiers des appels du mois passé pour votre agence." & _
vbCrLf & vbCrLf & _
"Nous restons bien entendu à votre disposition pour tout renseignement complémentaire." & _
vbCrLf & vbCrLf & _
"Cordialement." & _
vbCrLf & vbCrLf
Set Outlook = CreateObject("Outlook.Application" )
Set Mail = Outlook.CreateItem(0)
With Mail
.to = Dest
.CC = ""
.BCC = ""
.Subject = Objet
.Body = Corps
.Attachments.Add ActiveWorkbook.FullName
.Display
ActiveWindow.Close
End With
End Sub
Merci d'avance pour votre aide
Kalmard