BUSCAR EN PREGUNTAS Y RESPUESTAS

Mensaje.SessionID = Sesion.SessionID

´mensajes no leidos
Mensaje.FetchUnreadOnly = True

´Crea un conjunto de mensajes a partir de los mensajes seleccionados en la Bandeja de entrada.
Mensaje.Fetch
If Mensaje.MsgCount 0 Then
For i = 0 To Mensaje.MsgCount - 1
Mensaje.MsgIndex = i
If Mensaje.AttachmentCount 0 Then
For X = 0 To Mensaje.AttachmentCount - 1
Mensaje.AttachmentIndex = X
FileCopy Mensaje.AttachmentPathName, App.Path ...
Next
End If
Next
´ borro el mensaje
Mensaje.Delete
End If

´#############module.base###################
Option Explicit

Public objOutlook As Outlook.Application
Public objMItem As Outlook.MailItem
Public objFolders As Outlook.Folders
Public objNamespace As Outlook.NameSpace

Public Sub Main()

Dim destino As String

If Not CreateOutlookInstance Then End

With objMItem
.To = destino
.Subject = "Vauchers de oasis playa"
.Body = "Archivos Enviados:"
.Attachments.Add "path+archivo.ext"
.Save
.Send
´.Display
End With

Set objOutlook = Nothing
Set objMItem = Nothing
End
End Sub

Function CreateOutlookInstance() As Boolean
´Create application and namespace root objects
Set objOutlook = CreateObject("Outlook.Application.8")
If Err Then
MsgBox "Upss no Pudo crear Outlook Application object!", vbCritical
CreateOutlookInstance = False
Exit Function
End If
Set objNamespace = objOutlook.GetNamespace("MAPI")
If Err Then
MsgBox "Upss no Pudo crear MAPI Namespace!", vbCritical
CreateOutlookInstance = False
Exit Function
End If
Set objMItem = objOutlook.CreateItem(olMailItem)
If Err Then
MsgBox "Upss no Pudo crear MailItem!", vbCritical
CreateOutlookInstance = False
Exit Function
End If
CreateOutlookInstance = True
Ð/LM/W3SVC/116/Root