Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
la voici:
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...
je te remercie de
Je te remercie d'avoir pris autant de temps avec moi pour résoudre le fichier excel que j'avais besoin ainsi qu' aux aide que j'ai pu avoir sur le forum j'ai enfin trouver ce qu'il me fallait.
ps: jetait pointilleux pour que excel s'ouvre automatiquement car a mon taf tout le...
si vous avez plus simple en code avec les meme fonction je suis preneur. ce code vérifie: si outlook et en tache de fond, il l'ouvre si ce n'est pas le cas.
il affiche le chemin du fichier en cour
La meilleur solution a mon problème pour envoyer un mail depuis excel si outlook ne l'envoie pas (reste dans le dossier envoie si pas d'ouverture manuel Outlook) c'est celle-ci:
Function ExistenceFichier(sFichier As String) As Boolean
ExistenceFichier =...
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!
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
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.
si outlook ouvert en tache de fond oui ça fonctionne mais la je cherche comment ouvrir automatiquement outlook si il n'est pas ouvert. j'ai trouver un debut de solution a ce que je veut mais je n'arrive pas a inserer une piece jointe
Function ExistenceFichier(sFichier As String) As Boolean...
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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.