Event bij emailen vanuit excel?

[E v R]

Is/wordt er een event getriggerd wanneer je een excel-bestand emailt? (rechtstreeks vanuit Excel)

Bijgaand bestandje verduidelijkt eea wellicht:

Als ik dit bestand op sla, wordt (in dit geval) eerst Sheet1 geaktiveerd en dan wordt er opgeslagen.
Wanneer een gebruiker dit bestand opent (zonder ingeschakelde macro's) dan is dus altijd dit eerste werkblad de aktieve.

Wanneer Sheet2 Aktief is en ik dit werkboek wil emailen, wordt er een 'soort van' kopie gemaakt van de huidige status
maar ondanks dat er iets wordt opgeslagen, wordt er geen Event-getriggerd.

Bij emailen staat dus Sheet2 als aktief werkblad.

Is dit te ondervangen? Mis ik een Event? Of een handigheidje?
anders dan:
- gewoon eerst opslaan
- Sheet1 eerst aktief te maken
- Eigen knop toevoegen in Ribbon
- zorgen dat macro's ingeschakeld zijn bij ontvanger

Het gaat me meer om een event te triggeren bij/net voor het emailen dan de eerste Sheet te activeren

 

[edmoor]

Bij het opslaan van een document wordt altijd dit event getriggerd:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 

[snb]

Wellicht ?

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  If Sh.Name = "Sheet2" Then Debug.Print "Calculate " & Sh.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name = "Sheet2" Then Sh.Calculate
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  If Sh.Name = "Sheet2" Then Debug.Print "Deactivate " & Sh.Name
End Sub

 

[E v R]

Thanks edmoor en snb,

Helaas worden deze events (althans bij mij) niet getriggerd bij het emailen van een werkboek.

File/Share/Email/Send as Attachement (ALT- F H E A)

 

[edmoor]

Dat klopt, maar je had het o.a. ook over het opslaan van het document.
Waarom maak je niet on knop om te mailen? Dan heb je alles zelf in de hand.

 

[E v R]

anders dan:
..
- Eigen knop toevoegen in Ribbon
..

Thanks Ed, die had ik al
Kreeg vraag van collega en liep tegen dit euvel aan. Verbaasde me dat ik dit emailen niet kon 'vangen' terwijl ik daar wel voordelen van kan inzien, sterker nog hiermee kan dus ook "verplicht" opslaan bij afsluiten of andere gewenste events buiten spel worden gezet.

 

[edmoor]

Ik bedoel niet in het ribbon maar gewoon in het werkblad. Dat is veel makkelijker dan File/Share/Email/Send as Attachement (ALT- F H E A) en je kan overal op inhaken. Vanaf Office 2010 kan het zelfs onder de rechter muisknop. Als je wilt kan ik daar wel een invoegtoepassing van maken voor je.

Een OnEmail event is er niet dus zal je een keuze moeten maken.

 

[snb]

Als je het bericht met Outlook verstuurt kun je deze outlook-gebeurtenis gebruiken, waarin je kunt verwijzen naar je Excel-werkboek:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  with getobject("G:\OF\voorbeeld.xlsb")

  end with
End Sub

 

[E v R]

@snb, het versturen gaat inderdaad met outlook, maar aktie ondernemen vanuit outlook 'lijkt' te laat, het bestandje is immers al in een email-bericht geladen.(correct me when I'm wrong)
@edmoor Via knop, invoegtoepassing oid ligt inderdaad het meest voor de hand, had enkel gehoopt dat het 'emailen' (wellicht op een andere manier) te vangen zou zijn. Een invoegtoepassing maken lukt wel, thanks anyway

Zal draadje vanavond afsluiten

 

[snb]

Dan heb ik nog deze in de aanbieding.
Natuurlijk wel afhankelijk van hoe je het bericht wil versturen.

[B]With createobject("outlook.application")[/B]  [COLOR="#008080"] '  triggers in outlook:[/COLOR]
   [COLOR="#0000CD"]Private Sub Application_Startup()

   End Sub[/COLOR]

   [COLOR="#B22222"]with.createitem(0)[/COLOR]    [COLOR="#008080"] '   triggers in OUtlook   [/COLOR]                         
[COLOR="#0000CD"]     Private Sub Application_NewMail()

     End Sub[/COLOR]
   [COLOR="#B22222"]end with[/COLOR]
[B]end with[/B]

 

[E v R]

Daar zal ik nog even mee gaan spelen :thumb: