La copie des valeurs à partir d'excel dans le corps de la messagerie outlook vb.net

C'est donc une version plus raffinée d'une question que j'ai posée tout à l'heure. J'ai essayé de trier ce pour un bon moment. J'ai trouvé un site qui a du sens, mais je ne peux pas le mettre en œuvre pour une raison quelconque. Je veux juste être en mesure de copier des informations à partir d'excel (tableaux, des graphiques, des plages, etc) dans le corps d'un e-mail outlook.

À partir d'ici:
http://pastebin.com/4VWmcrx6

Elle suggère:

Using VB.NET to copy Excel Range (a table) to body of Outlook email
Sub CopyFromExcelIntoEMail()
Dim Doc As Word.Document
Dim wdRn As Word.Range
Dim Xl As Excel.Application
Dim Ws As Excel.Worksheet
Dim xlRn As Excel.Range

Set Doc = Application.ActiveInspector.WordEditor
Set wdRn = Doc.Range

Set Xl = GetObject(, "Excel.Application")
Set Ws = Xl.Workbooks("Mappe1.xls").Worksheets(1)

Set xlRn = Ws.Range("b2", "c6")
xlRn.Copy

wdRn.Paste
End Sub

J'ai essayé plusieurs variantes, mais avec pas de chance. 

Imports System.Data
Imports System.IO
Imports Microsoft.Office.Interop
Imports Office = Microsoft.Office.Core
Imports xlNS = Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices
Imports System.Net.Mail
Imports excel1 = Microsoft.Office.Interop.Excel
Imports word1 = Microsoft.Office.Interop.Word
Imports outlook1 = Microsoft.Office.Interop.Outlook

Module Module1

    Sub Main()
        Dim Doc As Word.Document
        Dim wdRn As Word.Range
        Dim Xl As Excel.Application
        Dim Ws As Excel.Worksheet
        Dim xlRn As Excel.Range

        Dim application As New Outlook.Application
        Dim mail As Outlook.MailItem = CType(application.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)


        Doc = Application.ActiveInspector.WordEditor
        wdRn = Doc.Range

        Xl = GetObject("C:\Users\ajohnson\Desktop\Book1.xlsx", "Excel.Application")
        Ws = Xl.Workbooks("Book1").Worksheets(1)

        xlRn = Ws.Range("a1", "d2")
        xlRn.Copy()

        With mail
            .Body = wdRn.Paste() & vbCr & wdRn.Paste()

        End With

    End Sub

End Module

Il ne semble pas comme il devrait être que difficile et j'ai une idée raisonnable de ce qui se passe, mais peu importe ce que j'essaie ça ne fonctionne pas. Ce code renvoie une com exception sur 

Doc = Application.ActiveInspector.WordEditor

J'ai aussi essayé d'utiliser le code tel qu'il a été donner, mais il est dit que l'application n'est pas défini.

Toute aide serait grandement appréciée, Merci, comme toujours.

Pour la postérité (je vois cette question dans tous les sens): La solution de @Siddharth Déroute sera certainement le travail, mais si vous essayez de faire ne pas obtenir tronquée sur les mûres (il s'agit en réalité, je vous jure) une meilleure approche peut être trouvé dans les commentaires. 

Sub Export_Range_Images()

' =========================================
' Code to save selected Excel Range as Image
' =========================================

Dim oRange As Range
Dim oCht As Chart
Dim oImg As Picture
Set oRange = Range("A1:B2")
Set oCht = Charts.Add
oRange.CopyPicture xlScreen, xlPicture
oCht.Paste

oCht.Export FileName:="C:\temp\SavedRange.jpg", Filtername:="JPG"

End Sub

Cela vient de ici, avec:

.HTMLBody="< img src='C:\Temp\logo.jpg'>" & vbCr & "< img src='C:\Temp\logo.jpg'>"

De ici.

L'idée étant que vous créez .les fichiers jpg de les rangées ou les tables qui vous intéressent et ensuite utiliser le format html pour les placer dans le corps de l'email. Entre ces deux approches, vous devriez être en mesure de le faire fonctionner.

InformationsquelleAutor asjohnson | 2012-05-22
  1. 4

    Essayez ceci (ESSAYÉ ET TESTÉ)

    J'ai utilisé de Ron RangetoHTML fonction ici.

    Imports Excel = Microsoft.Office.Interop.Excel
Imports Olook = Microsoft.Office.Interop.Outlook
Public Class Form1
'~~> Define your Excel Objects
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim xlRange As Excel.Range
'~~> Define Outlook Objects
Dim olApp As New Olook.Application
Dim olMail As Olook.MailItem
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'~~> Opens an exisiting Workbook. Change path and filename as applicable
xlWorkBook = xlApp.Workbooks.Open("C:\Sample.xlsx")
'~~> Set the relevant sheet that we want to work with
xlWorkSheet = xlWorkBook.Sheets("Sheet1")
xlRange = xlWorkSheet.Range("A1:F20")
olMail = olApp.CreateItem(0)
On Error Resume Next
With olMail
.To = "INSERT TO EMAIL HERE"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(xlRange)
.Display()   'or use .Send to send it
End With
On Error GoTo 0
'~~> Close the File
xlWorkBook.Close (False)
'~~> Quit the Excel Application
xlApp.Quit()
'~~> Clean Up
releaseObject (xlApp)
releaseObject (xlWorkBook)
'~~> Similarly cleanup for outlook. not including as I am using .Display()
End Sub
Function RangetoHTML(rng As Excel.Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2010
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Excel.Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Copy()
TempWB = xlApp.Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial(Paste:=8)
.Cells(1).PasteSpecial(-4163, , False, False)
.Cells(1).PasteSpecial(-4122, , False, False)
.Cells(1).Select()
xlApp.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete()
On Error GoTo 0
End With
'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=4, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=0)
.Publish (True)
End With
'Read all data from the htm file into RangetoHTML
fso = CreateObject("Scripting.FileSystemObject")
ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close()
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
'Close TempWB
TempWB.Close(savechanges:=False)
'Delete the htm file we used in this function
Kill (TempFile)
ts = Nothing
fso = Nothing
TempWB = Nothing
End Function
'~~> Release the objects
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject (obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
End Class
    • Une très bonne suggestion. La seule chose que je suis en cours d'exécution, c'est qu'il est difficile de lire sur blackberry, ce qui est évidemment le cauchemar, je suis en train de vivre dans. Ce que nous faisons actuellement est de coller des choses comme des photos. Pensez-vous qu'il est une façon de le faire? D'après mes lectures, il semble que je pourrais être en mesure de sauver une plage comme une .jpg et ensuite inclure l'image dans le fichier html (style avec <img src>). Encore merci pour la bonne idée d'essayer.
    • Changer votre BB modèle. Utiliser blackberry torch 9860 comme je le fais LOL. Ok Blague à part, oui, vous pouvez insérer des images. Essayez-le et si vous êtes coincé, crois-moi savoir et je vais vous donner un exemple 🙂
    • Oh man, vous n'avez aucune idée à quel point je veux juste dire, "mûres sucer, il suffit d'utiliser autre chose," mais bien sûr, ce ne serait pas bien. Le problème que je rencontre avec des photos, c'est que je n'ai pas accès à la presse-papiers. Je sais comment choisir ma gamme dans excel et de les copier en tant qu'image, mais je ne peux pas la déverser dans le corps d'un email. Dois-je utiliser RangetoHTML pour que ainsi en quelque sorte? Peut-être quelques modifications? Vous êtes mon héros si vous avez une façon de faire que de travailler! 😀 je vais bricoler et vous permettent de savoir si j'ai une solution.
    • Oui, j'ai une solution mais je vais attendre jusqu'à ce que vous lui donner un essai? Il n'y a pas de plus grande joie que de découvrir une solution à vous-même 😉
    • À droite sur la, bien jusqu'à présent, il semble que la solution qui me semblait évident (en train de changer .de copie .copypicture que par ce qui est fait dans l'enregistreur de macro) n'est pas bon: rng.CopyPicture(Excel.XlPictureAppearance.xlScreen, Excel.XlCopyPictureFormat.xlPicture)
    • What we do currently is paste things as pictures. Petite question par curiosité. Pourquoi voulez-vous insérer une plage excel comme une image? Parce que tout le monde est en train de faire la même chose?
    • Je veux insérer excel plages, comme une image, donc je peux obtenir des tables à partir d'une feuille de calcul excel dans le corps d'un e-mail outlook (très similaire à ce que RangetoHTML), mais encore à ce qu'il soit lisible sur les mûres. Je l'ai testé et trouvé que si je fais un RangetoHTML approche et ont des tables comme votre solution propose la liste obtient tronqué rapidement sur un blackberry (ils sucer, je sais), mais si je copie les tableaux, comme les images et les coller dans le corps de l'email, puis tout le monde peut les lire sur leur blackberry.
    • Ah ok. 🙂 L'a obtenu. Lui donner un essai. Dans le même temps, je vais écrire le code pour cela. Le colle le moment où vous confirmez que vous n'êtes pas en mesure de le faire 🙂 Juste assez?
    • Juste des sons pour moi. Suis-je en droit de penser que je dois modifier le RangetoHTML fonction en quelque sorte? J'ai envie de changer collage spécial serait-il le faire, mais j'ai essayé de changer pour copier l'image et ensuite le coller en tant qu'image, mais elle n'est pas jouer gentil. J'ai trouvé un autre travail autour de: l'enregistrement des plages sous forme de fichiers jpg et ensuite de les charger dans le corps avec <img src>, mais je suis curieux à propos de cette approche, car il semble beaucoup plus propre (pas de créer un tas de fichier jpg).
    • Savez-vous comment faire pour exporter excel gamme comme une image? Si oui, alors vous pouvez simplement utiliser ce code olMail.Attachments.Add "C:\MyImage.jpg" et puis finalement olMail.HTMLBody = "<html><p>This is a picture.</p>" & "<img src='cid:MyImage.jpg' height=480 width=360>"
    • Yep, j'ai été en utilisant:vbadud.blogspot.com/2010/06/... et mrexcel.com/forum/showthread.php?t=529993 pour cette approche. Dois-je simplement s'en tenir à cela? J'ai essayé de modifier le RangetoHTML fonction de l'obtenir pour faire des photos et j'ai eu pas de chance. Avez-vous travailler? Le <img src> approche semble fonctionner très bien, mais si RangetoHTML t-il, je serais intéressé à le voir. Je vous remercie pour votre aide!
    • Donc vous êtes allé à la chasse 😉 eh Bien, je dirais que la façon comme je l'ai mentionné dans mon dernier commentaire car il est simple. Si vous suivez les RangetoHTML, alors vous devrez créer un fichier temporaire avec l'image insérée, puis lire le code-behind de ce qui est possible, mais peu bordélique à mon avis.
    • Je suis heureux de créer certains .jpg et <img src> mon chemin vers la réussite. Merci à tous pour votre aide!
    • Siddharth, belle réponse. Je viens de remarquer que vous utilisez TempFile = Environ$("temp")... j'ai toujours l'objet de dumping de la mine dans le répertoire de l'addin ou quoi, et puis (espérons-le) les a Tués. Votre chemin semble beaucoup mieux. Est Environ$("temp") toujours disponible en diverses versions de Windows?

    InformationsquelleAutor Siddharth Rout