XL 2016 code Vba mail depuis excel

crurik · 29 Janvier 2021

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 · 30 Janvier 2021

Staple1600 à dit:
Re

Dans ce cas, publie ta solution ici.
Elle pourrait servir à d'autres membres du forum avec une problématique similaire.

la voici:

VB:

Function ExistenceFichier(sFichier As String) As Boolean

ExistenceFichier = Dir(sFichier) <> ""

End Function


Sub EnvoiMail()

Dim objMail As Outlook.MailItem
Dim outapp As Outlook.Application
Set outapp = New Outlook.Application

Dim X As Object
Dim sNomFichier As String

sNomFichier = Sheets("Config").Range("L11").Value
'Le chemin de Outlook.exe sera alors indiqué en case L11, dans un onglet nommé “Config” car il diffère effectivement en fonction de la version de votre 'Office, ... Chaque utilisateur pourra donc écrire dans cet onglet de configuration le chemin de leur Outlook.exe

On...

crurik · 30 Janvier 2021

Staple1600 à dit:
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.

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

VB:

'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 · 30 Janvier 2021

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 · 30 Janvier 2021

patricktoulon à dit:
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 · 30 Janvier 2021

Re

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

crurik · 30 Janvier 2021

Staple1600 à dit:
Re

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

VB:

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 · 30 Janvier 2021

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 · 30 Janvier 2021

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

VB:

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 · 30 Janvier 2021

patricktoulon à dit:

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

VB:

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 · 30 Janvier 2021

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 · 30 Janvier 2021

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 · 30 Janvier 2021

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 · 30 Janvier 2021

Staple1600 à dit:
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 · 30 Janvier 2021

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 · 30 Janvier 2021

ben une réparation d'office s'impose

crurik · 30 Janvier 2021

patricktoulon à dit:
ben une réparation d'office s'impose

et je fais ca comment stp

XL 2016 code Vba mail depuis excel

crurik

XLDnaute Nouveau

crurik

crurik

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

crurik

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

crurik

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

crurik

XLDnaute Nouveau

crurik

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Outlook

Staple1600

XLDnaute Barbatruc

crurik

XLDnaute Nouveau

crurik

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

crurik

XLDnaute Nouveau

Discussions similaires