Cuestión : Usar el rescate con el último atascamiento

Estoy intentando convertir simplemente esto tarde a presagiar. Intentó algunas cosas básicas pero la subsistencia que conseguían errores. el
I es sure un arreglo simple del sintaxis.  He visto algunos otros reponses en otros hilos de rosca pero guardo el conseguir de errores de compilación. el

I intentó esto pero no tuvo gusto de todas las declaraciones déviles después de fijar el objOL del object

Dim del objOL como uso del objOL de Object
Set = del

Dim de CreateObject (“Outlook.Application”) como objOutlookMsg de objOL.Application
Dim como objOutlookRecip de objOL.MailItem
Dim como objOutlookAttach de objOL.Recipient
Dim como objOL.Attachment class= > " claro " 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:
el id= " codeSnippet846796 " class= " del 
 ' aquí es mi recorte de código actual
'con el atascamiento temprano

Uso dévil como Outlook.Application
objOutlookMsg dévil como Outlook.MailItem
objOutlookRecip dévil como Outlook.Recipient
objOutlookAttach dévil como Outlook.Attachment

Fijar el uso = CreateObject (“Outlook.Application”)

Amortiguar SafeItem, oItem, etiqueta
Fijar SafeItem = CreateObject (“Redemption.SafeMailItem”) 'crean un caso de Redemption.SafeMailItem
Fijar el oItem = Application.CreateItem (0) 'crean un nuevo mensaje

SafeItem.item = el oItem 'fijaron la característica del artículo

'etc ......
class= del

Respuesta : Usar el rescate con el último atascamiento

Usted necesita amortiguar TODO como objeto:

Uso dévil como objeto
objOutlookMsg dévil como objeto
objOutlookRecip dévil como objeto
objOutlookAttach dévil como objeto
Otras soluciones  
 
programming4us programming4us