Allen
Ik heb een code waar ik een automatische e-mail met genereer ivm rondvraag cadeau als er een collega op pensioen gaat.
Dit werkt goed, alleen moet ik nu ook bijhouden wie mee sponsort/betaald heeft, dit doe ik voorlopig handmatig in een Excelsheet.
Maar kan er bij het verzenden van deze email geen Excel gegenereerd worden op mijn bureaublad met als naam ".Subject" in dit geval Pensioen naam. Alsook dat alle emailadressen (TO - CC - BCC) hierin komen te staan onder elkaar, waar ik dan telkens een vinkje kan achter zetten/aanvinken als iemand betaald heeft.
Dan geeft dit een duidelijk overzicht.
Of wat is er mogelijk?
Alvast bedankt!
Ik heb een code waar ik een automatische e-mail met genereer ivm rondvraag cadeau als er een collega op pensioen gaat.
Code:
Sub Pensioen()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<font size=""3"" face=""Calibri"">Beste collega's<br><br>" & _
"Op <b>** maand</b> </font>zal onze zeer gewaardeerde collega <b> NAAM </b> zijn laatste werkdag beleven." & _
"<br><br>Voor al deze jaren trouwe dienst zouden we graag een cadeau voorzien en vragen hiervoor...& _
"<br><br><b>Afsluitdatum: </b><font color = #FF0000><b>** maand</b></font>.<br><br>" & _
"Mvg <br><br>Brent</font>"
On Error Resume Next
With OutMail
.To = ""
'.BCC = ""
.Subject = "Pensioen NAAM"
.HTMLBody = strbody
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Dit werkt goed, alleen moet ik nu ook bijhouden wie mee sponsort/betaald heeft, dit doe ik voorlopig handmatig in een Excelsheet.
Maar kan er bij het verzenden van deze email geen Excel gegenereerd worden op mijn bureaublad met als naam ".Subject" in dit geval Pensioen naam. Alsook dat alle emailadressen (TO - CC - BCC) hierin komen te staan onder elkaar, waar ik dan telkens een vinkje kan achter zetten/aanvinken als iemand betaald heeft.
Dan geeft dit een duidelijk overzicht.
Of wat is er mogelijk?
Alvast bedankt!