email mailing maken met VBA code

[rob91]

Hallo,

Ik heb nu een stukje code die ervoor zorgt dat een blad uit een excelbestand gemauild wordt naar een emailadres uit een cel;

Is deze code ook zo om te bouwen dat er een op te geven Worddocument naar dat emailadres gestuurd wordt en daarna dan het emailadres pakt uit de cel eronder voor de volgende brief.?

Rob

Sub verzenden()

' Blad wordt verzonden naar emailadres in cel S17
Dim mailadres As String

mailadres = Range("s17").Value
Dim wb As Workbook
    Dim Strdate As String
    Strdate = Format(Now, " dd-mm-yy h:mm ")
    Application.ScreenUpdating = False
    Sheets("Kalender").Copy
    Set wb = ActiveWorkbook
    With wb
        .SendMail (mailadres), _
        "Antwoordformulier" & Strdate & " "
        .Close False
    End With
    Application.ScreenUpdating = True
    
    MsgBox "Email verzonden; een kopie van het bericht vindt u in de map Verzonden Items"
    
    Application.DisplayAlerts = False
    
   ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:= _
        False, AllowFormattingCells:=False, AllowFormattingColumns:=False, _
        AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows _
        :=False, AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, _
        AllowDeletingRows:=False, AllowSorting:=False, AllowFiltering:=False, _
        AllowUsingPivotTables:=True
        
    ActiveWorkbook.Close
    
    End Sub

 

[rob91]

Ik ben er al uit.

De oplossing zit in Word, die dan een koppeling heeft met een bestand in Excel