Fråga : Using befrielse med det sena bandet

Pröva förmiddag I enkelt att konvertera detta till sent att bida. Försökte några grundläggande saker men uppehället som får fel. förmiddagen för
I sure det är en enkel syntaxknipa.  Jag har beskådat några andra reponses i andra trådar men I-uppehället som får sammanställa fel.

I försökte denna, men den gillade inte alla dunkla meddelanden, når det har ställt in objOLen för objOLobject

Dim som applikation för Object
Set objOL = för CreateObject (”Outlook.Application”)

Dim som objOutlookMsg för objOL.Application
Dim som objOutlookRecip för objOL.MailItem
Dim som objOutlookAttach för objOL.Recipient
Dim som objOL.Attachment > för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

" codeBody " ' är här min ström kodifierar snippeten 'med tidig sortbandet Dunkel applikation som Outlook.Application Dunkel objOutlookMsg som Outlook.MailItem Dunkel objOutlookRecip som Outlook.Recipient Dunkel objOutlookAttach som Outlook.Attachment Fastställd applikation = CreateObject (”Outlook.Application”) Dunkla SafeItem, oItem, märker Fastställda SafeItem = CreateObject (”Redemption.SafeMailItem”) 'skapar en anföra som exempel av Redemption.SafeMailItem Fastställd oItem = Application.CreateItem (0) 'skapar ett nytt meddelande SafeItem.item = fastställd objektegenskap för oItem ' 'etc. ......, " klar "

Svar : Using befrielse med det sena bandet

Du behöver dunkelt ALLT som anmärker:

Dunkel applikation som anmärker
Dunkel objOutlookMsg som anmärker
Dunkel objOutlookRecip som anmärker
Dunkel objOutlookAttach som anmärker