Excel Vers Outlook EXPRESS

2 réponses

Eric

05/07/2003 à 09:33

Bonjour,
J'ai laissé un message hier concernant mon problème : je veux envoyer un
Email à plusieurs personnes en y joingnant un fichier TXT, et tout ca en VBA
sour Excel.
J'ai bien eu des réponses et j'ai tenté d'adapter les macros proposées..
(merci au personnes qui m'ont indiqué le chemin ;-) )
Mais je crois que je me suis mal exprimé, en effet, je n'ai pas Outlook sur
mon PC mais Outlook Express installé par défaut avec Internet Explorer et je
ne trouve pas l'objet Outlook.Application dans l'explorateur d'objects :(
Y a t'il une solution pour envoyer des Email avec Outlook Express ? sachant
que je n'ai pas la possibilité d'installer Outlook du pack Office.

Merci

voici la macro que j'ai adaptée et VBA refuse de déclarer les variables dans
la procédure Envoyer_Message() j'ai une erreur "type defini par
l'utilisateur non defini"

Option Explicit

Public Const Dest As String = "DXXX@xx.fr"
Public Const Message As String = "Ceci est un message de test"
Public Const Fichier As String = "C:\mes documents\SectActivite.bdd"

Public Sub Envoyer_Message()
Dim OLf As Outlook.MAPIFolder
Dim olmailitem As Outlook.MailItem
Dim acontact As Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.OriginatorDeliveryReportRequested = True
.Attachments.Add Fichier
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

2 réponses

Jean-François Aubert

05/07/2003 à 10:30

Salut Eric,

tiré de :
http://www.excelabo.net/xl/sortir.htm#fichierjoint

Fichier joint avec Outlook Express ?
Je souhaiterais savoir s'il est possible d'envoyer par mail (Outlook
Express) d'Excel en VBA, tous les fichiers (xl ou non) contenus dans un
répertoire, en récupérant les adresses mails contenues sur une feuille de
calcul.

Il est possible de coder l'envoi d'un fichier joint avec Outlook, mais pas avec
Outlook Express...

FS

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

"Eric" a écrit dans le message de news:be5v0m$p3b$

Bonjour,
J'ai laissé un message hier concernant mon problème : je veux envoyer un
Email à plusieurs personnes en y joingnant un fichier TXT, et tout ca en VBA
sour Excel.
J'ai bien eu des réponses et j'ai tenté d'adapter les macros proposées..
(merci au personnes qui m'ont indiqué le chemin ;-) )
Mais je crois que je me suis mal exprimé, en effet, je n'ai pas Outlook sur
mon PC mais Outlook Express installé par défaut avec Internet Explorer et je
ne trouve pas l'objet Outlook.Application dans l'explorateur d'objects :(
Y a t'il une solution pour envoyer des Email avec Outlook Express ? sachant
que je n'ai pas la possibilité d'installer Outlook du pack Office.

Merci

voici la macro que j'ai adaptée et VBA refuse de déclarer les variables dans
la procédure Envoyer_Message() j'ai une erreur "type defini par
l'utilisateur non defini"

Option Explicit

Public Const Dest As String = ""
Public Const Message As String = "Ceci est un message de test"
Public Const Fichier As String = "C:mes documentsSectActivite.bdd"

Public Sub Envoyer_Message()
Dim OLf As Outlook.MAPIFolder
Dim olmailitem As Outlook.MailItem
Dim acontact As Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.OriginatorDeliveryReportRequested = True
.Attachments.Add Fichier
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Bonjour,
J'ai laissé un message hier concernant mon problème : je veux envoyer un
Email à plusieurs personnes en y joingnant un fichier TXT, et tout ca en VBA
sour Excel.
J'ai bien eu des réponses et j'ai tenté d'adapter les macros proposées..
(merci au personnes qui m'ont indiqué le chemin ;-) )
Mais je crois que je me suis mal exprimé, en effet, je n'ai pas Outlook sur
mon PC mais Outlook Express installé par défaut avec Internet Explorer et je
ne trouve pas l'objet Outlook.Application dans l'explorateur d'objects :(
Y a t'il une solution pour envoyer des Email avec Outlook Express ? sachant
que je n'ai pas la possibilité d'installer Outlook du pack Office.

Merci

voici la macro que j'ai adaptée et VBA refuse de déclarer les variables dans
la procédure Envoyer_Message() j'ai une erreur "type defini par
l'utilisateur non defini"

Option Explicit

Public Const Dest As String = "DXXX@xx.fr"
Public Const Message As String = "Ceci est un message de test"
Public Const Fichier As String = "C:mes documentsSectActivite.bdd"

Public Sub Envoyer_Message()
Dim OLf As Outlook.MAPIFolder
Dim olmailitem As Outlook.MailItem
Dim acontact As Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.OriginatorDeliveryReportRequested = True
.Attachments.Add Fichier
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,
J'ai laissé un message hier concernant mon problème : je veux envoyer un
Email à plusieurs personnes en y joingnant un fichier TXT, et tout ca en VBA
sour Excel.
J'ai bien eu des réponses et j'ai tenté d'adapter les macros proposées..
(merci au personnes qui m'ont indiqué le chemin ;-) )
Mais je crois que je me suis mal exprimé, en effet, je n'ai pas Outlook sur
mon PC mais Outlook Express installé par défaut avec Internet Explorer et je
ne trouve pas l'objet Outlook.Application dans l'explorateur d'objects :(
Y a t'il une solution pour envoyer des Email avec Outlook Express ? sachant
que je n'ai pas la possibilité d'installer Outlook du pack Office.

Merci

voici la macro que j'ai adaptée et VBA refuse de déclarer les variables dans
la procédure Envoyer_Message() j'ai une erreur "type defini par
l'utilisateur non defini"

Option Explicit

Public Const Dest As String = ""
Public Const Message As String = "Ceci est un message de test"
Public Const Fichier As String = "C:mes documentsSectActivite.bdd"

Public Sub Envoyer_Message()
Dim OLf As Outlook.MAPIFolder
Dim olmailitem As Outlook.MailItem
Dim acontact As Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.OriginatorDeliveryReportRequested = True
.Attachments.Add Fichier
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Frédéric Sigonneau

06/07/2003 à 16:35

Bonjour,

Essaye cette macro, publiée ici même il y a quelques mois. Comme Outlook Express
ne supporte pas l'automation (sauf chgt dans une versions récente ?), le code
est à base de Shell et de SendKeys, mais il semble que ça fonctionne :

Sub MailOXpress2()
'modifié par Eric Humeau, mpfe
'pour envoyer aussi un classeur en pièce jointe
Dim dest$, sujet$, texte$
Dim Rep
Application.ScreenUpdating = False

'Rep est le nom de ton fichier à joindre.
Rep = "c:test1.xls"
dest = ""
sujet = "Envoyer un mail depuis Xl"
texte = "Envoyé avec Outlook Express depuis Excel"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", 3", vbMaximizedFocus

'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis
'envoyer.
SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,
J'ai laissé un message hier concernant mon problème : je veux envoyer un
Email à plusieurs personnes en y joingnant un fichier TXT, et tout ca en VBA
sour Excel.
J'ai bien eu des réponses et j'ai tenté d'adapter les macros proposées..
(merci au personnes qui m'ont indiqué le chemin ;-) )
Mais je crois que je me suis mal exprimé, en effet, je n'ai pas Outlook sur
mon PC mais Outlook Express installé par défaut avec Internet Explorer et je
ne trouve pas l'objet Outlook.Application dans l'explorateur d'objects :(
Y a t'il une solution pour envoyer des Email avec Outlook Express ? sachant
que je n'ai pas la possibilité d'installer Outlook du pack Office.

Merci

voici la macro que j'ai adaptée et VBA refuse de déclarer les variables dans
la procédure Envoyer_Message() j'ai une erreur "type defini par
l'utilisateur non defini"

Option Explicit

Public Const Dest As String = ""
Public Const Message As String = "Ceci est un message de test"
Public Const Fichier As String = "C:mes documentsSectActivite.bdd"

Public Sub Envoyer_Message()
Dim OLf As Outlook.MAPIFolder
Dim olmailitem As Outlook.MailItem
Dim acontact As Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.OriginatorDeliveryReportRequested = True
.Attachments.Add Fichier
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Bonjour,

Essaye cette macro, publiée ici même il y a quelques mois. Comme Outlook Express
ne supporte pas l'automation (sauf chgt dans une versions récente ?), le code
est à base de Shell et de SendKeys, mais il semble que ça fonctionne :

Sub MailOXpress2()
'modifié par Eric Humeau, mpfe
'pour envoyer aussi un classeur en pièce jointe
Dim dest$, sujet$, texte$
Dim Rep
Application.ScreenUpdating = False

'Rep est le nom de ton fichier à joindre.
Rep = "c:test1.xls"
dest = "zaza@mpfe.fr"
sujet = "Envoyer un mail depuis Xl"
texte = "Envoyé avec Outlook Express depuis Excel"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", 3", vbMaximizedFocus

'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis
'envoyer.
SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,
J'ai laissé un message hier concernant mon problème : je veux envoyer un
Email à plusieurs personnes en y joingnant un fichier TXT, et tout ca en VBA
sour Excel.
J'ai bien eu des réponses et j'ai tenté d'adapter les macros proposées..
(merci au personnes qui m'ont indiqué le chemin ;-) )
Mais je crois que je me suis mal exprimé, en effet, je n'ai pas Outlook sur
mon PC mais Outlook Express installé par défaut avec Internet Explorer et je
ne trouve pas l'objet Outlook.Application dans l'explorateur d'objects :(
Y a t'il une solution pour envoyer des Email avec Outlook Express ? sachant
que je n'ai pas la possibilité d'installer Outlook du pack Office.

Merci

voici la macro que j'ai adaptée et VBA refuse de déclarer les variables dans
la procédure Envoyer_Message() j'ai une erreur "type defini par
l'utilisateur non defini"

Option Explicit

Public Const Dest As String = "DXXX@xx.fr"
Public Const Message As String = "Ceci est un message de test"
Public Const Fichier As String = "C:mes documentsSectActivite.bdd"

Public Sub Envoyer_Message()
Dim OLf As Outlook.MAPIFolder
Dim olmailitem As Outlook.MailItem
Dim acontact As Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.OriginatorDeliveryReportRequested = True
.Attachments.Add Fichier
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,
J'ai laissé un message hier concernant mon problème : je veux envoyer un
Email à plusieurs personnes en y joingnant un fichier TXT, et tout ca en VBA
sour Excel.
J'ai bien eu des réponses et j'ai tenté d'adapter les macros proposées..
(merci au personnes qui m'ont indiqué le chemin ;-) )
Mais je crois que je me suis mal exprimé, en effet, je n'ai pas Outlook sur
mon PC mais Outlook Express installé par défaut avec Internet Explorer et je
ne trouve pas l'objet Outlook.Application dans l'explorateur d'objects :(
Y a t'il une solution pour envoyer des Email avec Outlook Express ? sachant
que je n'ai pas la possibilité d'installer Outlook du pack Office.

Merci

voici la macro que j'ai adaptée et VBA refuse de déclarer les variables dans
la procédure Envoyer_Message() j'ai une erreur "type defini par
l'utilisateur non defini"

Option Explicit

Public Const Dest As String = ""
Public Const Message As String = "Ceci est un message de test"
Public Const Fichier As String = "C:mes documentsSectActivite.bdd"

Public Sub Envoyer_Message()
Dim OLf As Outlook.MAPIFolder
Dim olmailitem As Outlook.MailItem
Dim acontact As Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.OriginatorDeliveryReportRequested = True
.Attachments.Add Fichier
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Excel Vers Outlook EXPRESS

2 réponses

Veuillez sélectionner un problème