Bonsoir le forum et les surdoués de la macro!!
J'ai trouvé une macro qui permet d'envoyer automatiquement un fichier excel par OE.
Le problème c'est que le fichier ne s'attache pas et se retrouve dans la ligne destinataire.
Où est l'erreur?
Si vous aves l'oeil et la connaissance, merci de regarder ça.
Sub SendEmail()
Dim Dest As String, Objet As String
Dim Corps As String, Rep As String
Dest = 'contact@fournisseur.com'
'Définir le chemin et le fichier à expédier.
Rep = 'D:\\Mes documents\\essaiemail.xls'
Objet = 'OBJET'
Corps = 'XXXXXXXXXXXXXXXX' & vbCrLf & vbCrLf
Corps = Corps & 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' & vbCrLf
Corps = Corps & 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB' & vbCrLf & vbCrLf
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & _
'?subject=' & Objet & _
'&Body=' & Corps, vbMaximizedFocus
'Active la ligne de code qui correspond à ton exigence.
'Envoyer le fichier sans fichier attaché
'SendKeys '%s'
'Pour afficher le courriel + fichier attaché
SendKeys '%I' & 'p' & Rep & '~'
'Envoyer le courriel SANS fichier attaché de façon automatique
'SendKeys '%I' & 'p' & Rep & '~' & '%s'
'Envoyer le courriel + fichier attaché de façon automatique
'SendKeys '%I' & 'p' & Rep & '~'
End Sub
J'ai trouvé une macro qui permet d'envoyer automatiquement un fichier excel par OE.
Le problème c'est que le fichier ne s'attache pas et se retrouve dans la ligne destinataire.
Où est l'erreur?
Si vous aves l'oeil et la connaissance, merci de regarder ça.
Sub SendEmail()
Dim Dest As String, Objet As String
Dim Corps As String, Rep As String
Dest = 'contact@fournisseur.com'
'Définir le chemin et le fichier à expédier.
Rep = 'D:\\Mes documents\\essaiemail.xls'
Objet = 'OBJET'
Corps = 'XXXXXXXXXXXXXXXX' & vbCrLf & vbCrLf
Corps = Corps & 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' & vbCrLf
Corps = Corps & 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB' & vbCrLf & vbCrLf
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & _
'?subject=' & Objet & _
'&Body=' & Corps, vbMaximizedFocus
'Active la ligne de code qui correspond à ton exigence.
'Envoyer le fichier sans fichier attaché
'SendKeys '%s'
'Pour afficher le courriel + fichier attaché
SendKeys '%I' & 'p' & Rep & '~'
'Envoyer le courriel SANS fichier attaché de façon automatique
'SendKeys '%I' & 'p' & Rep & '~' & '%s'
'Envoyer le courriel + fichier attaché de façon automatique
'SendKeys '%I' & 'p' & Rep & '~'
End Sub