Opgelost Excel -> Outlook, mail "hoge priorieit"meegeven.

[Gert Bouwmeeste]

Goedemorgen,

Ik maak regelmatig gebruik van een VBA-routine om gepersonaliseerde mail vanuit Excel via Outlook te verzenden. Dat gaat prima.

Dat is deze routine:

Sub MailIndividueel()

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    
    Application.ScreenUpdating = False
    
    ' Instellen de wat een NweRegel is
        NweRegel = vbCrLf 'Enter en nwe regel
    
    'Tel het aantal mailtjes dat verzonden moet worden
        Sheets("Sjabloon").[B26].Formula = "=COUNTA('Download Sportlink'!C[])-1"
        Sheets("Sjabloon").[B26].HorizontalAlignment = xlLeft
        AantalMails = Sheets("Sjabloon").[B26].Value
    
    For verwerken = 1 To AantalMails

        ' Haal de relatiecode op vanuit de download van SportLink en zet die in het sjabloon
            RelatieCode = ActiveCell.Value
            Sheets("Sjabloon").Range("B28").Value = RelatieCode
        
        ' Lees het mailadres uit in kolom "L"
            Mailadres = Sheets("Sjabloon").[B9].Value
        
        ' Stel het mailtje op
            With OutApp.CreateItem(0)
                .To = Mailadres
                .CC = ""
                .BCC = ""
                .ReplyRecipients.Add "<mailadres>"
                .Subject = Sheets("Sjabloon").[B11].Value
                .Body = Sheets("Sjabloon").[B13].Value & NweRegel & NweRegel & Sheets("Sjabloon").[B15].Value & " " & NweRegel & Sheets("Sjabloon").[B17].Value & NweRegel & Sheets("Sjabloon").[B18].Value
                .ReplyRecipientNames = "<mailadres voor antwoord>"
                .ReadReceiptRequested = False
                
            'Eventueel een bijlage bijvoegen
                .Attachments.Add Sheets("Sjabloon").[B20].Value & Sheets("Sjabloon").[B21].Value
                .Attachments.Add Sheets("Sjabloon").[B20].Value & Sheets("Sjabloon").[B22].Value
                
            ' Laat de aangemaakte mail op het scherm zien
                ' Dat heeft alleen zin als test met een paar mailtjes. Voor de massamail zinloos
                ' Dat kun je dan beter uitschakelen.
            
                 '.Display
            
            'Verzend de mail meteen
                'Dit pas doen nadat je uitvoerig hebt gecontroleerd of de mail goed is !
                
                .Send
            
            'Sluit het aangemaakte mailtje en sla 'm op als Concept in de Inbox
                
                ' Alleen gebruiken als testrun! Maakt de mailtjes qaan en zet ze als concept in
                ' Inbox
                
                '.Close olSave
           
        End With
                            
            ActiveCell.Offset(1, 0).Range("A1").Select
            
    Next
    
    Application.ScreenUpdating = True
    
End Sub

Ik zoek de mogelijkheid om aan te geven dat de mail "Hoge prioriteit" moet krijgen.
Welke regel zou ik dan moeten toevoegen?

Dank en groet,
Gert

 

[Warme bakkertje]

Heb je deze al geprobeerd?

.Importance = 2

 

[Gert Bouwmeeste]

Heb je deze al geprobeerd?

.Importance = 2

Dat is 'm Rudi. Dank je wel!

 

[Warme bakkertje]

Graag gedaan.