Macro OUTLOOK

Bonjour

Je suis à la recherche d'une macro qui permet de sélectionner juste une feuille d'un classeur et de l'envoyer directement en pièce jointe

J'utilise sous word ça:

Sub envoimail()

'

' envoie un mail avec la pièce jointe

'

Dim ol As Object, monItem As Object

Set ol = CreateObject("outlook.application")

Set monItem = ol.CreateItem(olMailItem)

monItem.To = "xxxxxx@xxxxx "

monItem.Subject = "Salut"

monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver la fiche de MAJ SIG"

Set mondoc = monItem.Attachments

mondoc.Add ThisWorkbook.Sheets("commande").Copy

monItem.Send

Set ol = Nothing

MsgBox "la demande a bien été transmise "

End Sub

du coup j’essaie de faire une copie de ma feuille (commande) mais je n’arrive pas . Le reste fonctionne bien

Cette formule vient de word du coup je dois changer doc en xlm?J'ai essayé mais impossible de le faire fonctionner

Bonjour,

Un essai,

Évidemment dans les références disponibles ... "Microsoft Outlook xx.0 Object Library"

Sub envoimail()
'
' envoie un mail avec la pièce jointe
'
  repertoireAppli = ActiveWorkbook.Path
  Sheets("commande").Copy
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs repertoireAppli & "\commande.xls"
  ActiveWindow.Close

Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")

  Dim msg As MailItem
  Set olapp = New Outlook.Application
  Set msg = olapp.CreateItem(olMailItem)
   msg.To = "xxxx@xxxxx.com"  ''ActiveCell.Value
   msg.Subject = "Mon sujet "  '  Range("A2").Value
   msg.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver la fiche de MAJ SIG"
   msg.Attachments.Add Source:=repertoireAppli & "\commande.xls"
   msg.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub

Gelinotte

Rechercher des sujets similaires à "macro outlook"