Beste
Met de code hieronder stuurt persoon A, een email naar persoon B en mezelf.
Met de code hieronder stuurt persoon B, een email naar persoon A en mezelf.
Dus enkel deze twee personen kunnen de email sturen (lees: de macro gebruiken)
Als derde Case Else krijgt de rest te zien dat ze geen toegang hebben, werkt ook...
Maar ik krijg alleen in de MsgBox de 'Replace(Environ("username"), ".", " ")', niet in.
Krijg hier steeds foutmelding op, hoe komt dit?
Mvg
Zou moeten worden: MsgBox "Replace(Environ("username"), ".", " "), for you: access denied!!!", vbOKOnly + vbCritical, "Warning"
Met de code hieronder stuurt persoon A, een email naar persoon B en mezelf.
Met de code hieronder stuurt persoon B, een email naar persoon A en mezelf.
Dus enkel deze twee personen kunnen de email sturen (lees: de macro gebruiken)
Als derde Case Else krijgt de rest te zien dat ze geen toegang hebben, werkt ook...
Maar ik krijg alleen in de MsgBox de 'Replace(Environ("username"), ".", " ")', niet in.
Krijg hier steeds foutmelding op, hoe komt dit?
Mvg
Code:
Sub email()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Select Case LCase(Environ("username"))
Case Is = "Persoon A"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "tekst email van Persoon A naar B en mezelf”
On Error Resume Next
With OutMail
.To = "email"
.CC = "email"
.BCC = ""
.Subject = "Tekst"
.HTMLBody = strbody
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Case Is = "Persoon B"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = " tekst email van Persoon B naar A en mezelf”
On Error Resume Next
With OutMail
.To = "email"
.CC = "email"
.BCC = ""
.Subject = "Tekst"
.HTMLBody = strbody
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Case Else:
MsgBox "for you: access denied!!!", vbOKOnly + vbCritical, "Warning"
End Select
End Sub
'Replace(Environ("username"), ".", " ")
Zou moeten worden: MsgBox "Replace(Environ("username"), ".", " "), for you: access denied!!!", vbOKOnly + vbCritical, "Warning"
Laatst bewerkt: