Gert Bouwmeeste
Verenigingslid
- Lid geworden
- 28 nov 2007
- Berichten
- 824
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:
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
Ik maak regelmatig gebruik van een VBA-routine om gepersonaliseerde mail vanuit Excel via Outlook te verzenden. Dat gaat prima.
Dat is deze routine:
Code:
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