Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien
Toon posts:

Outlook button die URL start afhankelijk van de SenderName

Pagina: 1
Acties:

Verwijderd

Topicstarter
Wij stappen over van Lotus Notes naar MS Outlook 2003 als gevolg van een bedrijfsovername.
Het lukt mij maar niet om een bepaalde functionaliteit over te nemen.
In Lotus Notes heb ik een knop geprogrammeerd met de volgende code:

wiki_url := "http://intranet.wiki.com/index.php/";
fullname := @RightBack(@LeftBack(From; "/OU");"CN=") ;
@URLOpen( wiki_url+fullname)

Dit zorgt ervoor dat een URL in de (IE) browser gestart wordt die bepaald wordt door de naam van degene die een mail stuurt. (Bijv: http://intranet.wiki.com/index.php/Jan de Vries)
Voor iedere medewerker bestaat een dergelijke URL compleet met foto, telefoonnummer etc.

Kan iemand mij helpen aan code voor een MS Outlook macro die hetzelfde kan in Outlook?

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

offtopic:
Is het handig om nu een niet meer ondersteund tool uit te rollen, laat staan een met een achterhaalde GUI? Ga dan meteen voor OFF2007.


Kant en klare code heb ik niet, maar
Visual Basic:
1
2
3
4
5
6
7
Sub AfzenderNaam()
    Dim outlookApp As New Outlook.Application
    Dim mailtje As Outlook.MailItem
    
    Set mailtje = outlookApp.ActiveInspector.CurrentItem
    MsgBox mailtje.sendername
End Sub

geeft de afzender van de huidige mail. Natuurlijk kan je dat omvormen naar een correcte URL. Met Shell() kan je vervolgens een externe applicatie (zoals een browser) starten.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Verwijderd

hoe je de shell opdracht gebruikt zie je hier : Rupie in "Diverse files printen met access macro?"
uiteraard geef je als dde-parameter "open" mee ipv. "print".
de als default aangeduide browser zal de url openen.