Excel VBA Mail versturen met afzender in de CC

[pLabel]

Goedemiddag,

Voor mijn werk ben ik bezig om een Macro in Excel te maken dat collega's een formulier kunnen invullen en deze automatisch wordt verstuurd naar de desbetreffende afdeling.
Dit werkt allemaal goed, alleen wil ik graag dat de afzender ook in de 'CC' komt te staan.

Weten jullie welke code bij 'CC' moet komen te staan, zodat de afzender een eigen exemplaar van de email ontvangt?

With xEmailObj
.Display
.To = "[e-mail]"
.CC = ""
.Subject = xSht.Name + " " + Range("C8").Value

Alvast dank!

[ Voor 5% gewijzigd door pLabel op 26-11-2021 15:24 ]

[g0tanks]

Daarvoor kan je application.Session.CurrentUser.Address gebruiken:

code:

Sub EmailWithCCTome()
Dim outlookobj As Object
Dim emailitem As Object
Set outlookobj = CreateObject("Outlook.Application")
Set emailitem = outlookobj.CreateItem(olMailItem)
With emailitem
.To = toemail
.CC = outlookobj.Session.CurrentUser.Address
End With

[Brahiewahiewa]

pLabel schreef op vrijdag 26 november 2021 @ 15:24:
Goedemiddag,

Voor mijn werk ben ik bezig om een Macro in Excel te maken dat collega's een formulier kunnen invullen en deze automatisch wordt verstuurd naar de desbetreffende afdeling.
Dit werkt allemaal goed, alleen wil ik graag dat de afzender ook in de 'CC' komt te staan.

Weten jullie welke code bij 'CC' moet komen te staan, zodat de afzender een eigen exemplaar van de email ontvangt?

With xEmailObj
.Display
.To = "[e-mail]"
.CC = ""
.Subject = xSht.Name + " " + Range("C8").Value

Alvast dank!

Hûh? Het e-mail adres van de afzender, lijkt me. Of mis ik iets?

[Brahiewahiewa]

g0tanks schreef op vrijdag 26 november 2021 @ 15:52:
Daarvoor kan je application.Session.CurrentUser.Address gebruiken:

code:

Sub EmailWithCCTome()
Dim outlookobj As Object
Dim emailitem As Object
Set outlookobj = CreateObject("Outlook.Application")
Set emailitem = outlookobj.CreateItem(olMailItem)
With emailitem
.To = toemail
.CC = outlookobj.Session.CurrentUser.Address
End With

Dat veronderstelt wel een geconfigureerd outlook profiel

[g0tanks]

Brahiewahiewa schreef op vrijdag 26 november 2021 @ 15:55:
[...]

Dat veronderstelt wel een geconfigureerd outlook profiel

Lukt het überhaupt om een email te sturen zonder profiel?

[Brahiewahiewa]

g0tanks schreef op vrijdag 26 november 2021 @ 15:57:
[...]


Lukt het überhaupt om een email te sturen zonder profiel?

Mij wel ;o)
Ik doe gewoon een socket openen naar port 25 en dan EHLO, mail from, rcpt to, etc

[pLabel]

g0tanks schreef op vrijdag 26 november 2021 @ 15:52:
Daarvoor kan je application.Session.CurrentUser.Address gebruiken:

code:

Sub EmailWithCCTome()
Dim outlookobj As Object
Dim emailitem As Object
Set outlookobj = CreateObject("Outlook.Application")
Set emailitem = outlookobj.CreateItem(olMailItem)
With emailitem
.To = toemail
.CC = outlookobj.Session.CurrentUser.Address
End With

Bedankt!!