Bijlage(n) in body van

[AatB]

Hallo,

vanuit een applicatie stuur ik foto's, pdf's e.d via de mail.
Deze worden als bijlage aan de mail (outlook) gekoppeld.
Ik zou ze graag direct zichtbaar willen zien in de body van de mail.

Kan dit dmv een vba functie in Outlook die de bijlage(n) bijvoorbeeld eerst automatisch saved naar de temp folder en daarna importeert in de body van de mail.


Ik hoor het graag.....

mvg,

Aat

 

[Emil S]

goed idee, daarom heb ik voor mijzelf deze code gemaakt.

als je eerst de bijlagen toevoegt aan de mail, dat zou je deze code voor Outlook kunnen gebruiken.
je moet wel de mail selecteren in OL!

Sub BijlagenVermelden()
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim Blg As Object
Dim x As Integer
Dim y As Integer

    Set myOlExp = Application.ActiveExplorer
    Set myOlSel = myOlExp.Selection
    
    For x = 1 To myOlSel.Count
        If TypeName(myOlSel.Item(x)) = "MailItem" Then 'voor het geval dat iets anders in geselecteerd
            With myOlSel.Item(x)
                Set Blg = .Attachments
                'zijn er wel bijlagen?
                If Blg.Count > 0 Then
                    .Body = .Body & vbNewLine & "Ingesloten bijlagen:" & vbNewLine
                Else
                    MsgBox "Geen Bijlagen!", vbCritical
                    Exit Sub
                End If
                For y = 1 To Blg.Count
                    .Body = .Body & Blg.Item(y).FileName & vbNewLine
                Next
            End With
        End If
    Next

End Sub

 

[AatB]

Ik ga hier mee spelen...... bedankt