Discussion :

[Straeten]

Bonsoir à tous,

Je n'avais jamais eu de problème avec ce code.
J'ai la library outlook, tout fonctionnait bien encore ce soir et quand je suis revenu sur Excel (365) j'ai rajouté quelques boutons et mes mails n'arrive pas à destinations.
Pas de bug quand je lance la macro juste rien qui arrive sur les boites mails. (comme si il ne vois pas que les librairies sont actives...)

Voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Export_et_envoiPDF()
Dim AWkb As String
Dim o As Object
Dim m As Object
 
Application.EnableEvents = False
Application.DisplayAlerts = False
Range("B1:I47").Select
Sheets("Facturier").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "f:\orgacoach\BackupFactures\Tmptmp.xlsb", 50, , , True
AWkb = ActiveWorkbook.Name
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Syl\AppData\Local\Temp\Orgacoach.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
DoEvents
Workbooks(AWkb).Close
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.DisplayAlerts = True
Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)
 
m.To = Range("B16").Value
m.Subject = "Facture Orgacoach"
m.Body = "Ci-joint la facture pour " & Range("D24").Text & " " & Range("B24").Text & " " & Range("C24").Text
 
m.Attachments.Add "C:\Users\Syl\AppData\Local\Temp\Orgacoach.pdf"
'Repeat this line if there are more Attachments
m.Display
'm.Send 'If you want to just send it
 
End Sub

[halaster08]

Bonjour,

Merci d'utiliser la balise code (bouton #)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
m.Display
 'm.Send

Ton code n'envoie pas le mail, send est en commentaire.
Par contre normalement il te l'affiche (display) vois-tu bien ton mail ? le destinataire est-il bien rempli ?

[Straeten]

Bonjour Halaster08,

Oui j'ai mis send en commentaire pour essayer de comprendre ce qui se passe.
Tout est correct, j'ai bien le mail du destinataire, ma pièce jointe en pdf est correctement généré et mon body est comme je le voulais

Je click sur envoyer et il ne se passe plus rien.
Pourtant, la première fois que j'ai fais le script et que j'ai activé ma librairie mes mails sont bien arrivés à mes destinataires.

[halaster08]

Est-ce que tu vois tes mails dans la boite d'envoi ? Dans les brouillons ?
As tu essayé en te mettant toi-même destinataire du mail ?
Quel est le poids de la pièce jointe ? As tu essayé sans la pièce jointe ?

[Straeten]

Je me mets en destinataire mais plus rien.
Pièce jointe de 139k.
Je n'ai pas de brouillon, c le outlook généré dans windows et pas le outlook du net.
Je n'ai pas encore essayé sans pièce jointe, mais j'ai déjà essayé en virant le fichier tmp.

Je me demande si ce serais pas lié a une sorte de conflit entre mes différents outlook. (Outlook de ma femme sur la plateforme classique, mon outlook pro sur office 365 etc..).

[halaster08]

Je me demande si ce serais pas lié a une sorte de conflit entre mes différents outlook. (Outlook de ma femme sur la plateforme classique, mon outlook pro sur office 365 etc..).

C'est possible, l'instance d'Excel a partir de laquelle tu lance la macro c'est quoi: un Excel 365 pro ou la meme version que le outlook de ta femme ?

edit: si c'est bien ça, ta femme doit avoir toutes tes tentatives dans ses brouillons ou sa boite d'envoi.