N1ckSch1lder
Gebruiker
- Lid geworden
- 27 mrt 2017
- Berichten
- 12
Goedemorgen,
Op dit moment werk ik aan een overzicht waar storingen worden gemeld in sheet "storingsoverzicht". Een nieuwe melding wordt altijd in rij 7 ingevoegd waardoor de laatste melding op rij 8 komt te staan, enz.
Na dat een melding is ingevoerd wordt er automatisch een werkbon opgemaakt op basis van de ingevulde data in het storingsoverzicht.
Is er een mogelijkheid om na het opslaan van een werkbon gemaakt in sheet "Werkbon" (door middel van onderstaande code), een hyperlink te genereren achter de laatste cell van de ingevoerde data van de melding in sheet "storingsoverzicht'', cell 7AF.
Graag hoor ik of meer informatie nodig is om deze vraag te kunnen beantwoorden.
Met vriendelijke groet,
Nick Schilder
Op dit moment werk ik aan een overzicht waar storingen worden gemeld in sheet "storingsoverzicht". Een nieuwe melding wordt altijd in rij 7 ingevoegd waardoor de laatste melding op rij 8 komt te staan, enz.
Na dat een melding is ingevoerd wordt er automatisch een werkbon opgemaakt op basis van de ingevulde data in het storingsoverzicht.
Is er een mogelijkheid om na het opslaan van een werkbon gemaakt in sheet "Werkbon" (door middel van onderstaande code), een hyperlink te genereren achter de laatste cell van de ingevoerde data van de melding in sheet "storingsoverzicht'', cell 7AF.
Graag hoor ik of meer informatie nodig is om deze vraag te kunnen beantwoorden.
Code:
Sub ButtonSafePDFAndMailPDF_Click()
ChDir "\\...."
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="\\bestand".pdf", _
OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim MyAttachments As Object
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set MyAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = ...
.Subject = ...
.HTMLBody = ...
MyAttachments.Add "...
.Display
End With
Set OutlookMailItem = Nothing
Set OutlookApp = Nothing
End Sub
Met vriendelijke groet,
Nick Schilder