Bronnen/code -mail via 365

[SlootsJ]

Hi,

Onlangs ben ik bezig geweest met een code voor sendmail vanuit een outlook applicatie.
Helaas erg kort van kunnen genieten, ons bedrijf is overgestapt naar office-365.

Nu heb ik erg veel informatie kunnen vergaren, helaas wijken de meeste codes erg van elkaar af en blijf ik foutcodes krijgen.
Kan iemand mij hier een kickstart geven, bronnen aanleveren of misschien een bestand aanleveren waarbij de sendmail vanaf een (365) als ingecodeerd is?

Hierbij mij documenten en code's.

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim EmailManager As String
    Dim EmailCC As String
    Dim EmailBCC As String
    
    EmailManager = Range("EmailManager")
    EmailBCC = Range("EmailBCC")
    EmailCC = Range("EmailCC")
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = EmailManager
        .CC = EmailCC
        .BCC = EmailBCC
        .Subject = "GC  Update per: " & Date & " van: " & Range("C2")
        .Attachments.Add ActiveWorkbook.FullName
        .body = <b>Overzicht afspraken</b>
        
                <b>Communicatie</b>
                "(Sheets("blad1").Range("C16"))"
                
                <b>Plannen & Organiseren</b>
                "(Sheets("blad1").Range("C29"))"
                
                <b>Initiatef</b>
                "(Sheets("blad1").Range("C45"))"
                
                <b>Coachen en Samenwerken</b>
                "(Sheets("blad1").Range("C61"))"
        .Display    'Send
    End With
        
    Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub

 

[edmoor]

Wat je aan de .body meegeeft is helemaal fout. Die verwacht een string.

 

[jkpieterse]

Ik vermoed dat het moet zijn:

.htmlbody = "<b>Overzicht afspraken</b>" & vbNewLine & _
                "<b>Communicatie</b>" & vbNewLine & _
                Sheets("blad1").Range("C16").Value & vbNewLine & _
                "<b>Plannen & Organiseren</b>" & vbNewLine & _
                Sheets("blad1").Range("C29").Value & vbNewLine & _
                "<b>Initiatef</b>" & vbNewLine & _
                Sheets("blad1").Range("C45").Value & vbNewLine & _
                "<b>Coachen en Samenwerken</b>" & vbNewLine & _
                Sheets("blad1").Range("C61").Value