Kode til outlook express.

Hvad er det for et script du skal have lavet?

At finde dokumentation til Outlook programmering, kan være noget af en pine fuld opgave. Jeg har fundet noget rundt omkring på nettet, men et godt forum har jeg endnu ikke fundet.

VH CK

Jeg skal bruge et script, som kan ændre replyTo addressen...
Normalt er den jo f.eks. xxx@xxx.dk
Men jeg skal på mit job bruge en funktion, som kan ændre denne, lige for den enkelte mail jeg skriver nu...

Man kan ændre den manuelt, ved at gå ind i Options -> Have Replies Sent to: 123@123.dk
Men jeg vil kunne vælge fra en combobox, og nummer 1 (eller 0) skal være normal, nummer 2 (eller 1) skal være 123@123.dk
Osv....

Denne kode virker ikke: http://www.win2000mag.net/Files/15442/Listing_01.txt

Sub ChangeReplyAddrNoPrompt()
    Dim objApp As Application
    Dim objItem As MailItem
    Dim strRecipName As String

    Set objApp = CreateObject("Outlook.Application")
    Set objItem = objApp.ActiveInspector.CurrentItem
 
    ' ### USER OPTION - specify reply address ###
    strRecipName = "outlvba@slipstick.com"
    If objItem.Class = olMail And _
      objItem.Sent = False Then
        Call AddReplyRecip(objItem, strRecipName)
    End If
 
    Set objItem = Nothing
    Set objApp = Nothing
End Sub

Er det Outlook eller Outlook Express?

Og jeg har fået svar på mit sp. :-)

Lukker