Vraag : Het gebruiken van Afkoop met Recente Band

Ik probeer om dit in laat het afwachten eenvoudig om te zetten. Probeerde een paar basisdingen maar houden krijgend fouten. zekere
I am het is een eenvoudige syntaxismoeilijke situatie.  Ik heb een paar andere reponses in andere draden bekeken maar ik houd krijgend het compileren van fouten.

I probeerde dit maar het hield niet van alle Schemerige verklaringen na het plaatsen van objOL object

Dim objOL als Object
Set objOL = („Outlook.Application“)

Dim Toepassing CreateObject als objOL.Application
Dim objOutlookMsg als objOL.MailItem
Dim objOutlookRecip als objOL.Recipient
Dim objOutlookAttach als objOL.Attachment
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
" notpretty " 
 ' hier is mijn huidig codefragment
'met vroege band

Schemerige Toepassing als Outlook.Application
Schemerige objOutlookMsg als Outlook.MailItem
Schemerige objOutlookRecip als Outlook.Recipient
Schemerige objOutlookAttach als Outlook.Attachment

Vastgestelde Toepassing = CreateObject („Outlook.Application“)

Schemerige SafeItem, oItem, Markering
Vastgestelde SafeItem = CreateObject („Redemption.SafeMailItem“) 'leidt tot een geval van Redemption.SafeMailItem
De reeks oItem = Application.CreateItem (0) 'leidt tot een nieuw bericht

SafeItem.item = oItem 'plaats het bezit van het Punt

'enz. ......

Antwoord : Het gebruiken van Afkoop met Recente Band

U moet ALLES als Voorwerp verduisteren:

Schemerige Toepassing als Voorwerp
Schemerige objOutlookMsg als Voorwerp
Schemerige objOutlookRecip als Voorwerp
Schemerige objOutlookAttach als Voorwerp
Andere oplossingen  
 
programming4us programming4us