Levél elküldésének ellenőrzése Excel VB- ből

Levél elküldésének ellenőrzése Excel VB- ből
2009-09-09T16:15:24+02:00
2009-09-10T18:12:54+02:00
2022-11-14T23:30:37+01:00
valenteen
Sziasztok!
Segítsetek légyszíves, mert megakadtam!
Azt szeretném megoldani, hogy az excel, hiba esetén küldjön levelet, majd ellenőrizze, hogy az az elküldött elemek mappában megtalálható-e.
Ezt a kód részletet sikerült találnom, ami már nem az elején fut hibára (A Dim olApp = New Outlook.Application-t ki kellett törölnöm, stb...)


Set olApp = CreateObject("Outlook.Application")
Set objNameSpace = olApp.GetNamespace("MAPI")
Set objMails = objNameSpace.GetDefaultFolder(olFolderOutbox)
'Itt futott hibára Run-time error '80070057'
'...egy, vagy több paraméter érvénytelen
Set objMail = objMails.Items.Find("[subject]= ""tárgy""")
If Not TypeName(objMail) = "Nothing" Then
MsgBox "Mail found."
Else
MsgBox "Mail not found."
End If

Semmit sem találtam, ami egy kis felvilágosítással szolgált volna hogyan miért nem működik, ugyanis több helyen is ezt találtam. Nem tudom azt sem, hogy működik-e, ha belső hálózaton levelező szerver a kiszolgáló.

Kéremszépen a segítségeteket!
Ezt pedig a kisfiam küldi nektek
Köszönöm szépen!
Mutasd a teljes hozzászólást!
A hiba egy elég alapvető hiányosságra vezethető vissza.

Az outlook-hoz nem úgy csatlakozol, hogy a referenciák közé beveszed az outlook objektum modelljét, hanem createobject()-tel kapcsolódsz hozzá dinamikusan. De ez esetben a olFolderOutbox az hol is lesz deklarálva? Mert az az outlook objektum könyvtárban kerül deklarálásra. Itt viszont nincs delarálva, ezért értéke 0 lesz (pontosabban üres variant, ami integer esetén 0-nak felel meg)

Megoldási lehetőségek:
1. Referenciák közé felveszed az ms outlook object library-t. Ez esetben már a createobject-re sincs szükség, működik a Dim olApp As New Outlook.Application

2. Megkeresed a olFolderOutbox konstans értékét és deklarálod olFolderOutbox-t a szkriptedben pl. Const olFolderOutbox = 4 'speciel pont ez az értéke, lásd outlook referencia, enumerations rész.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd