[VB6 SP5 e OUTLOOK 2K] Cambiare il PST di Deafult

Article View: free.it.visual-basic

Article #3002

Back to free.it.visual-basic Previous Next

#3002

From: Marcolino7
Date: Sun, 08 Dec 2002 20:04

26 lines
1859 bytes

Salve NG,
il mio problema � questo. Ho recuperato il seguente codice:

Dim App As New Outlook.Application
Dim Itm As Outlook.AppointmentItem

    Set Itm = App.CreateItem(olAppointmentItem)
    sDateTime = CStr(dDate) & " " & CStr(dTime)
    With Itm
        .Subject = sSubject
        .Start = sDateTime
        .Body = sBody
        .Location = sLocation
        .duration = sDuration
        .ReminderSet = bReminder
        .Save
    End With

Con questo codice riesco a creare un appuntamento in outlook. Il mio
problema si presenta quando il mio utente ha 2 pst aperti sull proprio
Outlook. Infatti questo codice scrive solo nel pst di default impostato
negli account, mentre io ho bisogno di scrivere nell'altro pst. oppure in un
public folder. Idee?
Vi ringrazio tanto e spero che mi salverete come al solito

--Marco

Technical Details

Message-ID: <fBNI9.61704$qF1.2532879@news2.tin.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeed.online.be!newsfeed.gamma.ru!Gamma.RU!newsfeeder.edisontel.com!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,6c17bd51ed8cf28d,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-12-08 12:04:50 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeed.online.be!newsfeed.gamma.ru!Gamma.RU!newsfeeder.edisontel.com!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail
From: "Marcolino7" <marcolino7@infinito.it>
Newsgroups: free.it.visual-basic
Subject: [VB6 SP5 e OUTLOOK 2K] Cambiare il PST di Deafult
Lines: 29
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <fBNI9.61704$qF1.2532879@news2.tin.it>
Date: Sun, 08 Dec 2002 20:04:27 GMT
NNTP-Posting-Host: 213.45.16.69
X-Complaints-To: newsmaster@tin.it
X-Trace: news2.tin.it 1039377867 213.45.16.69 (Sun, 08 Dec 2002 21:04:27 MET)
NNTP-Posting-Date: Sun, 08 Dec 2002 21:04:27 MET
Organization: TIN