VBA Envoi de mail depuis Word

Je ne saurais pas répondre à ta question, mais juste : change le titre de ton sujet.... C'est plutôt "[VBA] Envoi de mail depuis Word" ou un truc du genre.. Sinon, on risque de trop vite croire que c'est un simple pb MS Outlook, donc pour la cat' Logiciels  ..

 

merci je reformule mon sujet

édite ton premier message au lieu de créer un nouveau sujet  

c'est encore moi , j'ai trouver ceci pour excel

sub envoimail()

worbooks("calsseur 1").sendmail recipients:="tartem.pion@mimi.com", _

                               subject:="test envoi classeur", _

                               returnreceipt:=true

end sub

seulement sa utilise outlook express et non microsoft outlook et je n'arrive pas à l'utliser avec word.

merci d avance

au secours personne ne peu m aider

svp

bon j'ai réussi a faire sa sauf que le message par bien mais je n arrive pas a joindre le fichier

Sub envoi_mail()

    Dim app As Outlook.Application

    Dim Pieces As Variant

    Dim Colonne As Integer

    Dim Fichier As String

    Dim email As Object

 
    Application.StatusBar = "création d'un message outlook..."

    Set app = CreateObject("outlook.application")

    Set email = app.CreateItem(olMailItem)

    email.To = "mimi@quelquechose.fr"

    email.Subject = "essai"

    email.Body = "veuillez trouver ci-joint mon fichier"

    email.Send

    Set email = Nothing

 
    Application.StatusBar = "pièces jointes"

    Set Pieces = Attachments

 
    Application.StatusBar = "affichage du message outlook"

    Application.StatusBar = "prêt"

    Message.Display

 
End Sub

si quelqu un peu m aider

merci

Normal : Outlook Express doit être ton client "par défaut".. Pourtant, à l'installation, MS Outlook t'a demandé si tu voulais que lui le devienne à sa place et tu as peut-être répondu "non".

Dans MS Outlook, c'est ici : menu Outils -> Options -> onglet Autre -> rubrique Général -> cocher la case Définir Outlook comme le programme par défaut pour la messagerie, les contacts, le calendrier.

MS Outlook devrait alors se lancer par défaut.. Tu peux aussi vérifier si c'est bien pris en compte en cliquant sur un lien "mailto" depuis n'importe quelle page Web qui contient une adresse mail..


EDIT : bon bah, grillaid  ..

 

en fait ce petit programme est destiné pour mon boulot et on utilise MS outlook par defaut .donc mon message arrive bien a la personne designer mais il n y a pas la piece jointe.
en fait je crois que c'est attachments qui ne fonctionne pas .

si on pouvait m eclairer merci

ya vraiment personne ki pe m aider

sa serait sympa

bon je n y arrive vraiment pas voici ou j en suis

Sub envoi_mail()

    Dim app As Outlook.Application

    Dim myattachments As Variant

    Dim email As Object

 
    Application.StatusBar = "création d'un message outlook..."

    Set app = CreateObject("outlook.application")

    Set email = app.CreateItem(olMailItem)

    email.To = "mimi@machin.fr"

    email.Subject = "essai"

    email.Body = "veuillez trouver ci-joint mon fichier joint"

    myattachments = ("C:documents and settings\administrateur\bureau\classeur1.xls")

    email.Send

    Set email = Nothing

 
End Sub

donc le message par bien vers le destinataire mais sans la pièce jointe je desespère vraiment

merci

faudrait peut etre l'attacher au mail non ?

oui je sais bien mais la je coince vraiment.
j ai bo chercher mais ......
pourtant je suis sur que la solution est simple

Voici une solution qui marche :

Dim Destinataire As String
Dim Object As String
Destinataire ="monpot@mesamis.com"
Objet ="monObjet"
ActiveWorkbook.SendMail Recipients:=Destinataire, Subject:=Objet

A+

Oui, mais là, tu es dans Excel pas dans Word !
A creuser quand même...

Dim myattachments As Outlook.Attachments
.....
myattachments.Add NomDuFichier
.....

voilà la solution pour envoyer un email avec MS outlook et non outlook express

Dim outlapp2 as New outlook.application

Dim outmail2 as Mailitem

 
Set outlapp2 = New outlook.application

Set outmail2 = outlapp2.createitem(olmailitem)

 
with outmail2

 
.to = "adresse ou liste de distribution"

.subject = "sujet du message"

.body = "corps du message"

.attachments.add"\\chemin\fichier.ext"

.display

.send

 
end with

mettez ce code derriere un bouton envoyer email et le tour est jouer

salut a tous

bonjour,

je travaille sous excel/vba et je souhaite envoyer une piece jointe depuis mon code d'excel via outlook. votre cas est depuis word, pourriez vous m'aider a l'adapter à excel s'il vous plait. je suis stagiaire et je ne maitrise pas vba/excel

merci d'avance
Naya

As-tu simplement essayé le code donné ?
Il est bien possible que tu n'aies rien à changer
sinon http://www.rondebruin.nl/sendmail.htm

oui j'ai essayé le code et ca ne fonctionne pas, j'ai le message suivant : "type defini par l'utilisateur non defini" sur la 1ere ligne : Dim outlapp2 As New Outlook.Application

et en fait dans un 1er tps je voudrai savoir comment envoyer une piece jointe, mais le but c'est d'envoyer plusieurs classeurs dans un seul mail

Problème de références !!

(Dans l'éditeur VB, menu Outils/Références, ajoute le lien vers Outlook )

Pour XL voir par exemple http://www.rondebruin.nl/mail/folder2/mail1.htm

merci pour vos reponse
l'exemple en fait ne permet d'envoyer qu'un classeur a la fois.

j'ai trouvé ca ailleurs si ca peut vous interessé

Sub UseOutlook()

  Dim MonOutlook As Object

  Dim MonMessage As Object

  Dim i As Integer

 
  Set MonOutlook = CreateObject("Outlook.Application")

  Set MonMessage = MonOutlook.createitem(0)

  MonMessage.to = "toto@toto.com"

  MonMessage.Subject = "mon objet"

  MonMessage.body = "corps du mail"

 
  '-- au préalable j'ai rempli ReapproTab avec l'adresse des différentes pieces jointes à ajouter

  For i = 0 To NbAppelsFournisseurs - 1

    MonMessage.Attachments.Add GetReapproTab(i)

  Next i

  MonMessage.send

  Set MonOutlook = Nothing

 
End Sub

En fait il s'agit du code de ... http://www.rondebruin.nl/mail/folder2/mail1.htm, qui effectivement ne pose pas de problemes pour envoyer x pièces jointes, sinon à rajouter le code de balayage pour ces x pieces jointes .

ce n'est pas le que je l'ai trouvé mais en effet c'est pareil ^^

des infos intéressantes pour l'envoi de mail à partir de vba

http://www.paulsadowski.com/WSH/cdo.htm