🚀 go-pugleaf

Este mensaje se publico en este grupo :

Yes you can send e-mails with VBA(Visual Basic for Applications) and the
Automatition.
Since a Access Module you can make something than this:

Sub SendMessage(bInforme As Boolean, bHoja As Boolean, _
    bPres As Boolean)
    Dim oOutlook As New Outlook.Application
    Dim oMensaje As Outlook.MailItem

    Set oMensaje = oOutlook.CreateItem(olMailItem)

    With oMensaje
        .To = "Bill Gates"
        .Subject = "Fockoff Access!"
        .Body = "I thinkk" & _
            " Access is a " & _
            Your variable & "." & vbCrLf

        If bInforme = True Then
            .Attachments.Add Path & "YourDoc.doc"
        End If
        If bHoja = True Then
            .Attachments.Add Path & "YourSheet.xls"
        End If
        If bPres = True Then
            .Attachments.Add Path & "YourPress.ppt"
        End If


        .Display
    End With
End Sub

Is important than you see, with design window of a module,
Menu/Tools/References: Option Microsoft Outlook 8 object library.


Salutations,
Quim
Bonnin Sanso <jgomila@bonninsanso.com> escribi� en el mensaje de noticias
8mrv3l$bkp$1@diana.bcn.ttd.net...
> Hola,
>
> Sigo con la automatizaci�n de los programas, y quisiera enviar e-mails
> autom�ticamente desde access (indic�ndole todos los datos tales como
cuenta
> de correo, direcci�n del destinatario, asunto, mensage y datos adjuntos).
> Claro est� sin tener que confirmar nada.
>
> �Como tengo que hacerlo?
>
> Atentamente,
>
> Jordan Gomila
>
>
>