XL 2016 code Vba mail depuis excel

[crurik]

bonjour, mon soucie par rapport a mon code c'est que je suis obligé d’ouvrir outlook manuellement pour que le mail s'envoie car il reste bloquée dans la boite d'envoie si je ne le fait pas. Je tient a précisé que j'ai recherché par mais propre moyen mais je ne trouve pas la solution à mon problème. Merci d'avance pour le coup de main que vous pourriez m'apporter.

je vous laisse le code ici:

Option Explicit

Private Sub CommandButton1_Click()

Dim LeMail As Variant
Dim fichier As String

Set LeMail = CreateObject("Outlook.Application")

With LeMail.CreateItem(olMailItem)
.To = "adresse du destinataire"

fichier = "E:\"

.Attachments.Add fichier

.Display

End With


End Sub

 

[crurik]

Re


=>patricktoulon
C'est bien ce j'ai suggéré en message#2, non ?
Mais avec les commentaires en moins
Et sans emoticons, ce qui je l'avoue, rendait mon message moins rigolo.

a ben moi quand je suis mort de rire je l'exprime
une autre raison du ridicule de la chose

'sNomFichier = "C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE" 'si le programme n'est destiné qu'à votre seul PC vous pouvez écrire ici le chemin exact de votre Outlook.exe, sinon écrivez:
sNomFichier = Sheets("Config").Range("L11").Value
c'est ID = Shell(sNomFichier)

ouais!!! moi j'ai office 15 dommage

je suis sur 2016 comme office.

 

[patricktoulon]

alors c'est pas office 12 c'est pas possible
office 12 c'est office 2007
Dim outapp As Outlook.Application
ou
dim outapp as object
set outapp=createobject("outlook.application")
épicétoo!!!

 

[crurik]

alors c'est pas office 12 c'est pas possible
office 12 c'est office 2007

vue que tu a l'air bien caller pourrait tu voir pour mon probleme, j'ai tester le code du deuxieme message mais celui-ci reste bloquer dans la boite d'envoie si je n'ouvre pas Outlook manuellement. que ce soit avec la selection display et send.

 

[Staple1600]

Re

=>crurik
Qu'a donné le test que je te suggérais de faire? (cf message#10)

 

[crurik]

Re

=>crurik
Qu'a donné le test que je te suggérais de faire? (cf message#10)

Private Sub CommandButton1_Click()
Dim LeMail As Object
Dim fichier As String
Set LeMail = CreateObject("Outlook.Application")
With LeMail.CreateItem(olMailItem)
.To = "adresse du destinataire"
fichier = "E:\nomfichier.zip"
.Attachments.Add fichier
'.Display
.Send
End With
End Sub

 

[Staple1600]

Re

???
C'est la bonne question (mais tu ne donnes pas la réponse)
Mais ce n'est pas le code VBA du message#10
Code qui permettait de voir si il y avait un souci ou pas au niveau de la pièce jointe.

 

[patricktoulon]

chez moi le code de post#2 fonctionne en display et send

Sub test()
Dim LeMail As Object
Dim fichier As String
Set LeMail = CreateObject("Outlook.Application")
With LeMail.CreateItem(olMailItem)
.To = "toto@hotmail.fr"
.SentOnBehalfOfName = "trucmachin@domain.com"
fichier = "E:\toto.zip"
.Attachments.Add fichier
.Subject = "test de mail outlook vba "
.body = " allo! comment va tu "
.Display
'.Send
End With
End Sub

 

[crurik]

chez moi le code de post#2 fonctionne en display et send

Sub test()
Dim LeMail As Object
Dim fichier As String
Set LeMail = CreateObject("Outlook.Application")
With LeMail.CreateItem(olMailItem)
.To = "toto@hotmail.fr"
.SentOnBehalfOfName = "trucmachin@domain.com"
fichier = "E:\toto.zip"
.Attachments.Add fichier
.Subject = "test de mail outlook vba "
.body = " allo! comment va tu "
.Display
'.Send
End With
End Sub

Regarde la pièce jointe 1093557

 

[crurik]

je vient de le tester, comme je l'ai déja dis précédemment je suis obligé d'ouvrir Outlook pour qui ce mette a l'envoyer.

ps: chez toi Outlook n'est pas en tache de fond!

 

[patricktoulon]

non jamais
d'ailleurs pour aller lire mes mails j'utilise pas outlook de office l'app web de microsoft

Outlook

outlook.live.com

 

[Staple1600]

Re

=>crurik
La question était
Qu'affiche le MsgBox?
Tu ne donnes pas la réponse !
Tu disais avoir un problème pour joindre un fichier
Ce bout de code servait uniquement à savoir si le chemin (nom du dossier) et le fichier (nom du fichier) sont bons.
Car si le MsgBox affiche une chaine de caractère représentant un chemin invalide, c'est normal qu'il y ait un problème pour joindre le fichier.

 

[crurik]

Re

=>crurik
La question était
Qu'affiche le MsgBox?
Tu ne donnes pas la réponse !
Tu disais avoir un problème pour joindre un fichier
Ce bout de code servait uniquement à savoir si le chemin (nom du dossier) et le fichier (nom du fichier) sont bons.
Car si le MsgBox affiche une chaine de caractère représentant un chemin invalide, c'est normal qu'il y ait un problème pour joindre le fichier.

 

[crurik]

ce n'est plus la piece jointe le probleme, c'est que je suis obliger d'ouvrir Outlook pour envoyer les mails voila mon gros probleme.

 

[patricktoulon]

ben une réparation d'office s'impose

 

[crurik]

ben une réparation d'office s'impose

et je fais ca comment stp