Comment faire avec une macro sous Excel pour :
bouton "Message Electronique" =3D> "Envoyer la feuille en=20
tant que corps du message" =3D> Remplir les champs +=20
ajouter une pi=E8ce jointe.
C'est manuellement possible mais je ne sais pas comment=20
le faire automatiquement
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal Engelmajer
Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
Salut,
il faut créer un objet oulook par exemple.
voir sur excelabo et adapter
par exemple
Sub SendEMailOB()
'en A1 le destinataire
'en A2 l'objet du message
'en A3 le corps du message
'en A4 le fichier joint
Dim ol As Object
Dim unItem As Object
Dim fichierJoint As Object
Set ol = CreateObject("outlook.application")
Set unItem = ol.CreateItem(olMailItem)
Set fichierJoint = unItem.Attachments
unItem.To = [A1].Text
unItem.Subject = [A2].Text
unItem.Body = [A3].Text
fichierJoint.Add [A4].Text
unItem.Send
ol.Quit
Set ol = Nothing
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 506401c3e4d1$3f7bc680$a401280a@phx.gbl...
Salut,
Comment faire avec une macro sous Excel pour :
bouton "Message Electronique" => "Envoyer la feuille en
tant que corps du message" => Remplir les champs +
ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment
le faire automatiquement
Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
Emcy
J'ai un bug à la ligne Set unItem = ol.CreateItem (olMailItem)
outlook n'est pas ma messagerie principale, ça vient de ça ? comment faire alors pour que ça marche (sans avoir à mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma messagerie principale) des mails mais je n'arrive pas à joindre des fichiers attachés.
-----Message d'origine----- Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de
news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
.
J'ai un bug à la ligne Set unItem = ol.CreateItem
(olMailItem)
outlook n'est pas ma messagerie principale, ça vient de
ça ? comment faire alors pour que ça marche (sans avoir à
mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma
messagerie principale) des mails mais je n'arrive pas à
joindre des fichiers attachés.
-----Message d'origine-----
Salut,
il faut créer un objet oulook par exemple.
voir sur excelabo et adapter
par exemple
Sub SendEMailOB()
'en A1 le destinataire
'en A2 l'objet du message
'en A3 le corps du message
'en A4 le fichier joint
Dim ol As Object
Dim unItem As Object
Dim fichierJoint As Object
Set ol = CreateObject("outlook.application")
Set unItem = ol.CreateItem(olMailItem)
Set fichierJoint = unItem.Attachments
unItem.To = [A1].Text
unItem.Subject = [A2].Text
unItem.Body = [A3].Text
fichierJoint.Add [A4].Text
unItem.Send
ol.Quit
Set ol = Nothing
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emcy" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Comment faire avec une macro sous Excel pour :
bouton "Message Electronique" => "Envoyer la feuille en
tant que corps du message" => Remplir les champs +
ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment
le faire automatiquement
J'ai un bug à la ligne Set unItem = ol.CreateItem (olMailItem)
outlook n'est pas ma messagerie principale, ça vient de ça ? comment faire alors pour que ça marche (sans avoir à mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma messagerie principale) des mails mais je n'arrive pas à joindre des fichiers attachés.
-----Message d'origine----- Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de
news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
.
Michel Pierron
Bonsoir Emcy; Set unItem = ol.CreateItem(0) devrait fonctionner
Peu importe la messagerie que tu utilises si tu fais par exemple: ActiveWorkbook.SendMail "", "Voir document joint !"
MP
"Emcy" a écrit dans le message de news:509f01c3e4f0$73588190$ J'ai un bug à la ligne Set unItem = ol.CreateItem (olMailItem)
outlook n'est pas ma messagerie principale, ça vient de ça ? comment faire alors pour que ça marche (sans avoir à mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma messagerie principale) des mails mais je n'arrive pas à joindre des fichiers attachés.
-----Message d'origine----- Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de
news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
.
Bonsoir Emcy;
Set unItem = ol.CreateItem(0) devrait fonctionner
Peu importe la messagerie que tu utilises si tu fais par exemple:
ActiveWorkbook.SendMail "", "Voir document joint !"
MP
"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:509f01c3e4f0$73588190$a001280a@phx.gbl...
J'ai un bug à la ligne Set unItem = ol.CreateItem
(olMailItem)
outlook n'est pas ma messagerie principale, ça vient de
ça ? comment faire alors pour que ça marche (sans avoir à
mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma
messagerie principale) des mails mais je n'arrive pas à
joindre des fichiers attachés.
-----Message d'origine-----
Salut,
il faut créer un objet oulook par exemple.
voir sur excelabo et adapter
par exemple
Sub SendEMailOB()
'en A1 le destinataire
'en A2 l'objet du message
'en A3 le corps du message
'en A4 le fichier joint
Dim ol As Object
Dim unItem As Object
Dim fichierJoint As Object
Set ol = CreateObject("outlook.application")
Set unItem = ol.CreateItem(olMailItem)
Set fichierJoint = unItem.Attachments
unItem.To = [A1].Text
unItem.Subject = [A2].Text
unItem.Body = [A3].Text
fichierJoint.Add [A4].Text
unItem.Send
ol.Quit
Set ol = Nothing
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emcy" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Comment faire avec une macro sous Excel pour :
bouton "Message Electronique" => "Envoyer la feuille en
tant que corps du message" => Remplir les champs +
ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment
le faire automatiquement
Bonsoir Emcy; Set unItem = ol.CreateItem(0) devrait fonctionner
Peu importe la messagerie que tu utilises si tu fais par exemple: ActiveWorkbook.SendMail "", "Voir document joint !"
MP
"Emcy" a écrit dans le message de news:509f01c3e4f0$73588190$ J'ai un bug à la ligne Set unItem = ol.CreateItem (olMailItem)
outlook n'est pas ma messagerie principale, ça vient de ça ? comment faire alors pour que ça marche (sans avoir à mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma messagerie principale) des mails mais je n'arrive pas à joindre des fichiers attachés.
-----Message d'origine----- Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de
news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
.
Emcy
Avec l'exemple qu'il y a sur excel labo ça marche presque. Lorque j'envoie le mail un message me demande si je veux bien envoyer le mail (protection de outlook) => alors je répond oui.
Le problème est que le fichier est bien dans le dossier des fichiers à envoyer mais je suis obligé d'aller dans outlook et de faire un envoyer/recevoir car sinon le mail ne part pas
Exemple Exel Labo:
Sub Outlook()
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem, ToContact As Recipient
MESsages = MSG11 & MSG12 & MSG13 & MSG14 Set OLF = GetObject ("", "Outlook.Application").GetNamespace ("MAPI").GetDefaultFolder(olFolderInbox) Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = "XXXXXXXXXXXX1"
Set ToContact = .Recipients.Add ("") .Body = "ton message" .Attachments.Add "c:readme.txt" & SOCiete & "" & Nomvar, olByValue, , "le fichier que tu veux joindre" .OriginatorDeliveryReportRequested = False .ReadReceiptRequested = False .Send End With
Set ToContact = Nothing Set olMailItem = Nothing Set OLF = Nothing
End Sub
-----Message d'origine----- J'ai un bug à la ligne Set unItem = ol.CreateItem (olMailItem)
outlook n'est pas ma messagerie principale, ça vient de ça ? comment faire alors pour que ça marche (sans avoir à
mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma messagerie principale) des mails mais je n'arrive pas à joindre des fichiers attachés.
-----Message d'origine----- Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de
news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
.
.
Avec l'exemple qu'il y a sur excel labo ça marche
presque. Lorque j'envoie le mail un message me demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.
Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas
Exemple Exel Labo:
Sub Outlook()
Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient
MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = "XXXXXXXXXXXX1"
Set ToContact = .Recipients.Add
("monadresse@blabla.com")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & "" &
Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End Sub
-----Message d'origine-----
J'ai un bug à la ligne Set unItem = ol.CreateItem
(olMailItem)
outlook n'est pas ma messagerie principale, ça vient de
ça ? comment faire alors pour que ça marche (sans avoir
à
mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma
messagerie principale) des mails mais je n'arrive pas à
joindre des fichiers attachés.
-----Message d'origine-----
Salut,
il faut créer un objet oulook par exemple.
voir sur excelabo et adapter
par exemple
Sub SendEMailOB()
'en A1 le destinataire
'en A2 l'objet du message
'en A3 le corps du message
'en A4 le fichier joint
Dim ol As Object
Dim unItem As Object
Dim fichierJoint As Object
Set ol = CreateObject("outlook.application")
Set unItem = ol.CreateItem(olMailItem)
Set fichierJoint = unItem.Attachments
unItem.To = [A1].Text
unItem.Subject = [A2].Text
unItem.Body = [A3].Text
fichierJoint.Add [A4].Text
unItem.Send
ol.Quit
Set ol = Nothing
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emcy" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Comment faire avec une macro sous Excel pour :
bouton "Message Electronique" => "Envoyer la feuille en
tant que corps du message" => Remplir les champs +
ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment
le faire automatiquement
Avec l'exemple qu'il y a sur excel labo ça marche presque. Lorque j'envoie le mail un message me demande si je veux bien envoyer le mail (protection de outlook) => alors je répond oui.
Le problème est que le fichier est bien dans le dossier des fichiers à envoyer mais je suis obligé d'aller dans outlook et de faire un envoyer/recevoir car sinon le mail ne part pas
Exemple Exel Labo:
Sub Outlook()
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem, ToContact As Recipient
MESsages = MSG11 & MSG12 & MSG13 & MSG14 Set OLF = GetObject ("", "Outlook.Application").GetNamespace ("MAPI").GetDefaultFolder(olFolderInbox) Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = "XXXXXXXXXXXX1"
Set ToContact = .Recipients.Add ("") .Body = "ton message" .Attachments.Add "c:readme.txt" & SOCiete & "" & Nomvar, olByValue, , "le fichier que tu veux joindre" .OriginatorDeliveryReportRequested = False .ReadReceiptRequested = False .Send End With
Set ToContact = Nothing Set olMailItem = Nothing Set OLF = Nothing
End Sub
-----Message d'origine----- J'ai un bug à la ligne Set unItem = ol.CreateItem (olMailItem)
outlook n'est pas ma messagerie principale, ça vient de ça ? comment faire alors pour que ça marche (sans avoir à
mettre outlook en messagerie principale) ?
Remarque : J'arrive à envoyer avec outlook express (ma messagerie principale) des mails mais je n'arrive pas à joindre des fichiers attachés.
-----Message d'origine----- Salut, il faut créer un objet oulook par exemple. voir sur excelabo et adapter par exemple
Sub SendEMailOB() 'en A1 le destinataire 'en A2 l'objet du message 'en A3 le corps du message 'en A4 le fichier joint Dim ol As Object Dim unItem As Object Dim fichierJoint As Object Set ol = CreateObject("outlook.application") Set unItem = ol.CreateItem(olMailItem) Set fichierJoint = unItem.Attachments unItem.To = [A1].Text unItem.Subject = [A2].Text unItem.Body = [A3].Text fichierJoint.Add [A4].Text unItem.Send ol.Quit Set ol = Nothing End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emcy" a écrit dans le message de
news: 506401c3e4d1$3f7bc680$ Salut,
Comment faire avec une macro sous Excel pour : bouton "Message Electronique" => "Envoyer la feuille en tant que corps du message" => Remplir les champs + ajouter une pièce jointe.
C'est manuellement possible mais je ne sais pas comment le faire automatiquement
