1 Konuyu açan radiokaos

  • radiokaos
  • radiokaos
  • Üye
  • Offline
  • Kayıt Tarihi: 23.06.2009
  • İleti: 54

Konu: outlook 2003

Merhabalar,
eski bir server üzerinde outlook2003 kurulu..

VFP üzerinden createobject('Outlook Application') diyerek başlatıyorum.

Yeni mail varmı kontrolu yapmak için;
yeni versiyonlarında olup 2003 dahil ve öncekilerde olmayan SendandRecieve metodunu bulamadım.
Outlook çalışır çalışmaz sendkeys ile F9 da gönderdim. Bir tepki alamıyorum.
Outlok ayarlarını yaptım, zamanlarını 1 dkdüşürdüm rağmen güncellemiyor.
Ne zamanki outlook.exe çalıştırıp gönder_al bastığımda yeni mail(lere) ulaşabiliyorum..

2 Cevaplayan radiokaos

  • radiokaos
  • radiokaos
  • Üye
  • Offline
  • Kayıt Tarihi: 23.06.2009
  • İleti: 54

Re: outlook 2003

Neyse ki cevabı da buldum;

******************OUTLOOK AÇIK MI?
Try
    oOutlookObject = Getobject(,"Outlook.Application")
Catch
Endtry
If Vartype(oOutlookObject) <> "O"
    oOutlookObject = Createobject("Outlook.Application")
    If Vartype(oOutlookObject) <> "O"
        =messagebox("outlok çalışmadı")
        Return
    Endif
Endif
********************************************************************
olNameSpace = oOutlookObject.GetNameSpace('MAPI')
olNameSpace.Logon("Outlook", , .F., .T.)
versiyon=Val(Left(oOutlookObject.Version,2))
If m.versiyon>11 &&versiyon 11 den buyuk ise sendandreceive metodu geçerli
    olNameSpace.SendAndReceive(.F.)  &&outlook 2003 de yok
Else
    myFolder=olNameSpace.GetDefaultFolder(6)  &&inbox klasörü
    myExplorer=myFolder.GetExplorer
    cmdBars=myExplorer.CommandBars.FindControl(1, 7095).execute  &&toolbardaki sendandreceive butonun id'si 7095
Endif

3 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: outlook 2003

GetObject() kullanmani hic tavsiye etmem.

cetinbasoz's Website