Questione : Using l'estinzione con il grippaggio ritardato

Sto provando a convertire semplicemente questo in ritardo in aspettare. Ha provato alcune cose di base ma la conservazione che ottengono gli errori.
I sure è una difficoltà semplice di sintassi.  Ho osservato alcuni altri reponses in altri filetti ma continu aare ottenere gli errori di compilazione. il

I ha provato questo ma non ha gradetto tutte le dichiarazioni fioche dopo la regolazione del objOL del object

Dim del objOL come applicazione del objOL di Object
Set = del

Dim di CreateObject (“Outlook.Application„) come objOutlookMsg di objOL.Application
Dim come objOutlookRecip di objOL.MailItem
Dim come objOutlookAttach di objOL.Recipient
Dim come objOL.Attachment class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
il id= " codeSnippet846796 " class= " del 
 ' qui è il mio frammento di codice corrente
'con il grippaggio in anticipo

Applicazione fioca come Outlook.Application
objOutlookMsg fioco come Outlook.MailItem
objOutlookRecip fioco come Outlook.Recipient
objOutlookAttach fioco come Outlook.Attachment

Regolare l'applicazione = CreateObject (“Outlook.Application„)

Oscurare SafeItem, il oItem, modifica
Regolare SafeItem = CreateObject (“Redemption.SafeMailItem„) 'generano un caso di Redemption.SafeMailItem
Regolare il oItem = Application.CreateItem (0) 'generano un nuovo messaggio

SafeItem.item = il oItem 'hanno regolato la proprietà dell'articolo

'ecc ......
class= del

Risposta : Using l'estinzione con il grippaggio ritardato

Dovete oscurare TUTTO come oggetto:

Applicazione fioca come oggetto
objOutlookMsg fioco come oggetto
objOutlookRecip fioco come oggetto
objOutlookAttach fioco come oggetto
Altre soluzioni  
 
programming4us programming4us