Re : code vba "envoyer recevoir" outlook
Bonsoir
je te remercie encore de me répondre et vu l' heure c'est encore plus louable
Je penne car finalement rien n' avance , j'ai bien mis au début l'ouverture et à la fin la fermeture, mais le mail reste toujours "coincé" dans la boite d' envoi, je ne comprends vraiment pas.
c'est pas logique , car à l'ouverture, Outlook opère " l'envoi-reception" , je ne comprends qu'il ne finisse pas ce qu'il a commencé.
On n'est bien d' ok? même s'il se referme il doit travailler en "arrière plan" , puisque je reçois des notifications de mails entrants !
voici mon code complet:
Sub Z4_outllook_DIRECT() 'OPTION 4 :Mail direct sans PDF sur le bureau, avec message : "veuillez trouver ci-joint ma proposition de prix"
Dim X As String
Dim Y As String
Dim Z As String
Dim nomUtilisateur As String
Dim CheminDuFichier As String
Dim Appli As Object
On Error Resume Next
Set Appli = GetObject(, "Outlook.Application")
If Appli Is Nothing Then 'Shell "OUTLOOK.EXE", 6
MsgBox "Outlook était fermé"
'Else
' MsgBox "Outlook est ouvert"
End If
X = Range("E45").Value
Y = Range("E11").Value
Z = Range("H17").Value
CheminDuFichier = Z & " - " & Y & " - " & X & " € " & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\" & Environ("username") & "\Desktop\" & CheminDuFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
Set olApp = CreateObject("Outlook.application")
Set M = olApp.CreateItem(ol_MailItem)
With M
M.To = Range("E19").Value 'le destinataire
M.Subject = " facture"
M.Body = "Bonjour" & vbCr & "Veuillez trouver ci-joint mon offre de prix" & vbCr & " Cordialement " 'texte a rajouter"
M.Attachments.Add "C:\Users\" & Environ("username") & "\Desktop\" & CheminDuFichier
'Set oBjMail = Nothing
'Set ObjOutlook = Nothing
'Set olApp = Nothing
.Display
SendKeys "^{ENTER}"
' .Display True
'M.display 'OBLIGATOIRE avec option M.sendMail, à mettre ' devant pour : M.Send
M.send 'DEMANDE confirmation du programme extérieur à rentrer mais après envoi automatique et effacement fichier OK
'M.SendMail ' évite la confirmation de du programme extérieur à rentrer mais plus envoi automatique, cliquer sur "envoyer", et en plus ferme avant d' envoyer
'.send
'Outlook.Application.DisplayAlerts = False
nomUtilisateur = Application.UserName
Kill "C:\Users\" & nomUtilisateur & "\Desktop\" & CheminDuFichier
Set oBjMail = Nothing
Set olApp = Nothing
'Application.Dialogs(xlDialogSendMail).Show
End With
'Lance une opération "Envoyer recevoir" sur OUTLOOK
'Shell "OUTLOOK.EXE", 6
'pour fermer outlook :
For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
If Process.Name = "OUTLOOK.EXE" Then Process.Terminate
Next
End Sub