Excel sheet, opslaan en doormailen in Word

[Nico10]

Afgelopen zomer zijn we hier fantastisch geholpen door jullie om een Excel sheet op te slaan en door te mailen in Outlook.:thumb:
Nu is mijn vraag, kunnen we diezelfde sheet opslaan in Word en doormailen in Word?

De sub die we hiervoor gebruiken is de volgende:



Sub Spaarie()
If Sheets("Bon").Range("C1").Value = "" Then
MsgBox "Geef kenteken in.", vbInformation + vbOKOnly, "Oeps..."
Exit Sub
End If

Sheets("Bon").Copy
With ActiveWorkbook
p = ThisWorkbook.Path & "\" & Year(Date)
If Len(Dir(p, vbDirectory)) = 0 Then MkDir p
.SaveAs p & "\Bon " & .ActiveSheet.Range("C1").Value & ".xls"
With CreateObject("Outlook.Application").CreateItem(0)
.To = ActiveSheet.Range("G31").Value
.Subject = ActiveSheet.Range("G3").Value
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
.Close True
End With
End Sub


Alvast bedankt

Nico

 

[OctaFish]

Is je (jammer genoeg niet met de CODE knop opgemaakte code, maar dat kun je vast nog aanpassen) code van de oude procedure, of van wat je nu wilt hebben? Dat is niet duidelijk. En wat wil je dan precies in Word bereiken? Doe er eens wat bestandjes bij, dan wordt het vast duidelijker.

 

[Nico10]

Octafish,
Je kan het bestandje (bon) vinden op onderstaande link.
Het gaat om een bon die we naar herstellers sturen om een opdracht uit te voeren.
We zouden dezelfde bon willen opslaan en doorsturen in Word omdat er herstellers zijn die de bon niet kunnen openen.

Alvast bedankt

http://www.helpmij.nl/forum/showthread.php/826925-email-met-bijlage-via-macroknop