none
Jak vytvořit přes script novou složku v Outlook - kontakty ? RRS feed

  • Dotaz

  • Ahoj,

    mám script, který dokáže vytvořit složku v Outlooku. Potřeboval bych ho nějak upravit, aby místo vytvoření nového adresáře pod Doručnou poštou, vytvořil nový address book neboli další adresář pro kontakty. Přesněji řečeno, potřebuji vytvořit nový adresář do kterého bych potom vložil další kontakty než ty které jsou v hlavním adresáři.

    Můžete mi nějak pomoc ?

    Skript:

    $comments = @' 
    Script name: Create-Folder.ps1 
    Created on: Wednesday, September 26, 2007 
    Author: Kent Finkle 
    Purpose: How can I use Windows Powershell to 
    Create a New Folder in Microsoft Outlook? 
    '@ 
    #----------------------------------------------------- 
    function Release-Ref ($ref) { 
    ([System.Runtime.InteropServices.Marshal]::ReleaseComObject( 
    [System.__ComObject]$ref-gt 0) 
    [System.GC]::Collect() 
    [System.GC]::WaitForPendingFinalizers()  
    } 
    #----------------------------------------------------- 
    $olFolderInbox = 6 
      
    $o = new-object -comobject outlook.application 
    $n = $o.GetNamespace("MAPI") 
     
    $f = $n.GetDefaultFolder($olFolderInbox) 
      
    $nf = $f.Folders.Add("Scripts Received") 
      
    $a = Release-Ref($nf$a = Release-Ref($f$a = Release-Ref($n$a = Release-Ref($o
    úterý 17. ledna 2012 16:15

Odpovědi

  • takže už jsem to našel:

    tady je výpis složek, které se mění pod $olFolderInbox = 6

    CONST olAppointmentItem = 1
    CONST olFolderDeletedItems = 3
    CONST olFolderOutbox = 4
    CONST olFolderSentMail = 5
    CONST olFolderInbox = 6
    CONST olFolderCalendar = 9
    CONST olFolderContacts = 10
    CONST olFolderJournal = 11
    CONST olFolderNotes = 12
    CONST olFolderTasks = 13
    CONST olFolderDrafts = 16

    Takže potom to vypadá takto:

    $comments = @' 
    Script name: Create-Folder.ps1 
    Created on: Wednesday, September 26, 2007 
    Author: Kent Finkle 
    Purpose: How can I use Windows Powershell to 
    Create a New Folder in Microsoft Outlook? 
    '@ 
    #----------------------------------------------------- 
    function Release-Ref ($ref) { 
    ([System.Runtime.InteropServices.Marshal]::ReleaseComObject( 
    [System.__ComObject]$ref-gt 0) 
    [System.GC]::Collect() 
    [System.GC]::WaitForPendingFinalizers()  
    } 
    #----------------------------------------------------- 
    $olFolderInbox = 10 
      
    $o = new-object -comobject outlook.application 
    $n = $o.GetNamespace("MAPI") 
     
    $f = $n.GetDefaultFolder($olFolderContacts) 
      
    $nf = $f.Folders.Add("Scripts Received") 
      
    $a = Release-Ref($nf$a = Release-Ref($f$a = Release-Ref($n$a = Release-Ref($o

     


    • Upravený mhhory úterý 17. ledna 2012 16:39
    • Označen jako odpověď mhhory úterý 17. ledna 2012 16:39
    úterý 17. ledna 2012 16:38

Všechny reakce

  • takže už jsem to našel:

    tady je výpis složek, které se mění pod $olFolderInbox = 6

    CONST olAppointmentItem = 1
    CONST olFolderDeletedItems = 3
    CONST olFolderOutbox = 4
    CONST olFolderSentMail = 5
    CONST olFolderInbox = 6
    CONST olFolderCalendar = 9
    CONST olFolderContacts = 10
    CONST olFolderJournal = 11
    CONST olFolderNotes = 12
    CONST olFolderTasks = 13
    CONST olFolderDrafts = 16

    Takže potom to vypadá takto:

    $comments = @' 
    Script name: Create-Folder.ps1 
    Created on: Wednesday, September 26, 2007 
    Author: Kent Finkle 
    Purpose: How can I use Windows Powershell to 
    Create a New Folder in Microsoft Outlook? 
    '@ 
    #----------------------------------------------------- 
    function Release-Ref ($ref) { 
    ([System.Runtime.InteropServices.Marshal]::ReleaseComObject( 
    [System.__ComObject]$ref-gt 0) 
    [System.GC]::Collect() 
    [System.GC]::WaitForPendingFinalizers()  
    } 
    #----------------------------------------------------- 
    $olFolderInbox = 10 
      
    $o = new-object -comobject outlook.application 
    $n = $o.GetNamespace("MAPI") 
     
    $f = $n.GetDefaultFolder($olFolderContacts) 
      
    $nf = $f.Folders.Add("Scripts Received") 
      
    $a = Release-Ref($nf$a = Release-Ref($f$a = Release-Ref($n$a = Release-Ref($o

     


    • Upravený mhhory úterý 17. ledna 2012 16:39
    • Označen jako odpověď mhhory úterý 17. ledna 2012 16:39
    úterý 17. ledna 2012 16:38
  • úterý 17. ledna 2012 16:39