Ouvrez un nouveau message dans Outlook, Excel VBA

tous les jours je suis la manipulation des rapports quotidiens. Ce qui est assez fastidieux. Essentiellement, j'ai besoin d'envoyer un email contenant brève comparaison des ventes, hier, avec des ventes la semaine dernière et le mois. Qui fonctionne assez bien.
Une fois cela fait, le message est collé à la nouvelle feuille et puis, je dois le copier et de le coller dans la nouvelle adresse email dans Outlook.

Est-il possible de créer une macro qui va ouvrir un nouveau message dans Outlook? Je vais donc être en mesure d'insérer dans mon texte.
Je suis capable d'écrire une macro qui va l'envoyer directement à partir d'Excel, mais ce n'est pas quelque chose que je veux vraiment comme une partie de la reddition de comptes doit en fait en regardant les numéros manuellement.

Merci beaucoup d'avance!

Et des idées? merci

OriginalL'auteur Petrik | 2014-03-30

  1. 7

    Pour ajouter le ActiveWorbook comme une pièce jointe:

    1. L'enregistrer à un emplacement précis
    2. Use Attachments.Add pour ajouter le fichier à partir de l'emplacement à partir de 1

    code

    Sub CustomMailMessage()
Dim strFile As String
Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients

  Set OutApp = CreateObject("Outlook.Application")
  Set objOutlookMsg = OutApp.CreateItem(olMailItem)

  strFile = "C:\temp\myfile.xlsx"
  ActiveWorkbook.SaveAs strFile

  Set Recipients = objOutlookMsg.Recipients
  Set objOutlookRecip = Recipients.Add("[email protected]")
  objOutlookRecip.Type = 1

  With objOutlookMsg
    .SentOnBehalfOfName = "[email protected]"
    .Subject = "Testing this macro"
    .HTMLBody = "Testing this macro" & vbCrLf & vbCrLf
    'Resolve each Recipient's name.
    For Each objOutlookRecip In objOutlookMsg.Recipients
      objOutlookRecip.Resolve
    Next
    .Attachments.Add strFile
    .display
  End With

  'objOutlookMsg.Send
  Set OutApp = Nothing
End Sub

    OriginalL'auteur brettdj

  2. 5

    J'ai trouvé celui-ci et il fonctionne parfaitement!!!!

    Juste peut-être une chose - est-il possible de joindre ouvert le document en tant que pièce jointe? 

    Sub CustomMailMessage()
Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients

  Set OutApp = CreateObject("Outlook.Application")
  Set objOutlookMsg = OutApp.CreateItem(olMailItem)

  Set Recipients = objOutlookMsg.Recipients
  Set objOutlookRecip = Recipients.Add("[email protected]")
  objOutlookRecip.Type = 1

  objOutlookMsg.SentOnBehalfOfName = "[email protected]"
  objOutlookMsg.Subject = "Testing this macro"
  objOutlookMsg.HTMLBody = "Testing this macro" & vbCrLf & vbCrLf
  'Resolve each Recipient's name.
  For Each objOutlookRecip In objOutlookMsg.Recipients
    objOutlookRecip.Resolve
  Next
  'objOutlookMsg.Send
  objOutlookMsg.Display

  Set OutApp = Nothing  
End Sub

    OriginalL'auteur Petrik

  3. 4

    Je ne peux pas tester ça maintenant, mais ce serait aller comme ceci:

    set o = createObject("Outlook.Application")
set m = o.CreateItem(olMailItem) ' replace it with 0 if you get error here
o.show ' or .Display - not sure

    Vous pouvez définir l'o.D', o.Sujet etc. avant de l'afficher.
    Désolé, il n'est pas testé mais je n'ai pas Outlook sur mon ordinateur à la maison, je l'utilise seulement au travail.
    Je vais vérifier demain si je me souvienne.

    il y a erreur sur la deuxième ligne "Objet ne supporte pas cette propriété ou cette méthode.
    + 1, Vous pourriez déclarer vos variables ainsi? 🙂
    J'ai déjà cochée, il devrait être o.Display. L'erreur est probablement causée par Excel ne sachant pas Outlook, les énumérations (essayez de 0 au lieu de olMailItem). Siddhart, vous êtes en droit (merci pour l'édition de mon 'Ajouter' erreur), mais la déclaration des variables (même si c'est une bonne pratique) n'est pas nécessaire si l'on fait et un aid pas (ce que je fais)

    OriginalL'auteur avb