11. april 2008 - 13:12Der er
2 kommentarer og 1 løsning
Formular i Outlook
Jeg har en formular der startes i Outlook. Efter afsendelse skal denne formular automatisk poppe op og være klar til næste besked. Scriptet ser sådan ud og programmet siger at den fejler i linie 6:
Function Item_Send()
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
myItem.Subject = myItem.UserProperties.Item("Person")+", "+ myItem.UserProperties.Item("FraFirma")+" på tlf. "+ myItem.UserProperties.Item("FraTelefon")
Set olNamespace = myOlApp.GetNameSpace("MAPI")
Set myFolder = olNamespace.Folders("Reception").Folders("Indbakke")
Set myItem = myFolder.Items.Add("IPM.Note.Telefonbesked")
Function Item_Send() dim itm Set itm = Application.GetNamespace("MAPI").GetDefaultFolder(6).Items.Add("IPM.Note.Telefonbesked_2") Item.subject = Item.UserProperties.find("Person").value & ", " & Item.UserProperties.find("fraFirma").value & " på telefon " & Item.UserProperties.find("fraTelefon").value itm.display End Function
Du er velkommen til at sende mig en mail på ck@officekonsulenterne.dk så skal jeg sende dig et eksempel på en formular der virker med denne kode.
/Christian
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.