Pytanie : Using Odkupienie z Opóźniony Oprawa

I próbować po prostu póżno. Próbować błąd podstawowy rzecz ale utrzymanie błąd.
I am pewny ono być prosty składnia dylemat.  I przeglądać błąd inny reponses w inny nić ale I utrzymywać kompilować błąd.

I próbować objOL.Attachment ale ono polubić wszystkie the Ciemnawy oświadczenie po the objOL object

Dim objOL Jako Object
Set objOL = CreateObject ("Outlook.Application")

Dim Zastosowanie Jako objOL.Application
Dim objOutlookMsg Jako objOL.MailItem
Dim objOutlookRecip Jako objOL.Recipient
Dim objOutlookAttach Jako objOL.Attachment 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

 ' Tutaj być mój aktualny kod odrzynek
'z wczesny oprawa

Ciemnawy Zastosowanie Jako Outlook.Application
Ciemnawy objOutlookMsg Jako Outlook.MailItem
Ciemnawy objOutlookRecip Jako Outlook.Recipient
Ciemnawy objOutlookAttach Jako Outlook.Attachment

Ustalony Zastosowanie = CreateObject ("Outlook.Application")

Ciemnawy SafeItem, oItem, Etykietka
Ustalony SafeItem = CreateObject ("Redemption.SafeMailItem") 'Tworzyć przykład Redemption.SafeMailItem
Ustalony oItem = Application.CreateItem ((0)) 'Tworzyć nowy wiadomość

SafeItem.item = oItem 'set Rzecz własność

'etc ......

Odpowiedź : Using Odkupienie z Opóźniony Oprawa

Ty potrzebować POTRZEBOWAĆ Przedmiot:

Ciemnawy Zastosowanie Przedmiot
Ciemnawy objOutlookMsg Przedmiot
Ciemnawy objOutlookRecip Przedmiot
Ciemnawy objOutlookAttach Przedmiot
Inne rozwiązania  
 
programming4us programming4us