Excel blad verzenden

[Lode2008]

Een excel blad verzenden is vrij gemakkelijk via de Excel knop, Verzenden, Email.
Maar kan ik ook via een link die ik zelf aanmaak in het excelblad , en als men op die link klikt onmiddellijk naar het e-mail programma gaat of ineens het excelblad verzend naar mij.
Lode

 

[Lode2008]

Ik heb zelf al een macro gemaakt en dan geraak ik tot in het e-mail program, maar dan moet men nog zelf het mail adres in typen en verzenden. Kan men daar geen macro voor maken om volledig te verzenden.
Lode

 

[508]

probeer dit eens

  Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = "mail@mail.com"
        .CC = ""
        .BCC = ""
        .Subject = "testmail"
        .Body = _
        "Geachte heer/mevrouw," & vbNewLine & _
        "dit is de 1e tekst regel" & vbNewLine & _
        "dit is de 2e tekst regel" & vbNewLine & _
        vbNewLine & _
        vbNewLine & _
        "Met vriendelijke groet," & vbNewLine & _
        vbNewLine & _
        vbNewLine 
       
'        .Attachments.Add ActiveWorkbook.FullName
'       .Attachments.Add ("C:\test.txt")
        .Display
'        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

 

[Lode2008]

Ga dar eens proberen; Maar moet ik dan de naam OUTLOOK vervangen door Incredimail?
Lode