🚀 go-pugleaf

Probeer dit eens ...

Option Explicit

'Use early binding to create a new Outlook application object
Public olApp As New Outlook.Application
Public nsMAPI As Outlook.NameSpace
Public myAttachment As Attachment

Public adl As Outlook.AddressList
'-----------------------------------------------------
'Create a new mail message
Public Sub NewMailMessage(ImmediateSend As Boolean, theRecipient As String,
_
                   theSubject As String, theBody As String, _
                   anAttachment As Boolean, theAttachment As String)
    Dim itmMail As Outlook.MailItem

    'Return a reference to the MAPI layer
    Set nsMAPI = olApp.GetNamespace("MAPI")

    'Create a new mail message item
    Set itmMail = olApp.CreateItem(olMailItem)
    With itmMail
        'Add the subject of the mail message
        .Subject = theSubject
        'Create some body text
        .Body = theBody & vbCrLf

        'Add a recipient and test to amke sure that the
        'address is valid using the Resolve method

        With .Recipients.Add(theRecipient)
            .Type = olTo
            If Not .Resolve Then
                MsgBox "Unable to resolve address.", vbInformation
                Exit Sub
            End If
        End With
        If anAttachment = True Then
            'Attach a file as a link with an icon

'            Set myAttachment = itmMail.Attachments.Add(theAttachment,
olByValue, 0, "Prijsofferte")

            With .Attachments.Add(theAttachment, olByValue, 0,
"Prijsofferte")
                '.DisplayName = "UCW"
            End With
        End If
        If ImmediateSend = False Then
            'Display the item
            .Display
        Else
            'Send the mail message
            .Send
        End If
    End With

    'Release memory
    Set itmMail = Nothing
    Set nsMAPI = Nothing
    Set olApp = Nothing

    'NewMailMessage False, "Aphrosoft@skynet.be", "test", "ikke", True, "c:\
temp\bestand"

End Sub


mvg

Eddy


"f�t��y w�m" <wimbervoets@pandora.be> wrote in message
news:Hs6R7.18715$ZJ2.1121586402@hestia.telenet-ops.be...
> ik zou graag een mailformulier oproepen vanuit het hoofdprogramma. Je zou
> het formulier kunnen vergelijken met hetgeen dat je krijgt als je op een
> html-pagina op een e-maillink drukt. Dan verschijnt er een formulierke met
> 'Aan', 'CC', en ook plaats voor je eigenlijke mail te typen.
> Zoiets zou ik dus willen oproepen.., is dit mogelijk? En indien ja, welke
> componenten moeten er dan eventueel toegevoegd worden aan het form?
>
> cya
>
>
>
>
>
>