formulier mailen + automatisch naar jezelf

[descheep]

Hi,

Ik heb een mailbutton gemaakt met het onderstaande VBA script erachter:

Sub mailformulier()
ActiveWorkbook.SendMail Array("mail@mail.com", "mail@mail.com")
End Sub

Is het mogelijk om degene die het stuurt automatisch dezelfde mail te laten krijgen?

 

[migthy84]

huidige workbooks te pakken

Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr)

let wel op( outlook dient elke keer toestemming te krijgen)

 On Error Resume Next
    With OutMail
        .To = "mighty84@helpmij.nl"
        .CC = "test@helpmij.nl"
        .BCC = ""
        .Subject = "onderwerp"
        .Body = "body""
         .Displa
        .Attachments.Add wb2.FullName

End With

extra code
toevoegen van plaatjes foto's etc

       '.Attachments.Add ("C:\test.txt")

code hoort voor end with en .display in

 

[descheep]

Hi Mighty,

Ik heb even een koekoek momentje.

Hoe gaat mijn code er nu helemaal uit zien?
Ik begrijp even niet waar ik dit in moet plakken......

VB is niet helemaal mijn ding

 

[migthy84]

als je de code onder een knop stop dan gaat het mailen via outlook 2003 of outlook2007

 

[descheep]

krijg een ongeldige compileercode