Avatar billede Cale Mester
07. maj 2021 - 19:17 Der er 2 kommentarer

Send alle kladde e-mails på én gang i Outlook

Hej eksperter

Jeg har flere mail som skal sendes på en gang.
Men Jeg vil ikke sendes fra min egen mail men en bestemte fælles mail.

Hvilken VBA kode kan jeg bruge?
Avatar billede Tor4Every1 Juniormester
10. maj 2021 - 14:52 #1
Det er lidt svært bare at sige ude fra din besked,

Men for at kunne sende fra en anden mail adresse end din egen kan denne bruges. 

Sub CustomMailMessage()

Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients

Set OutApp = CreateObject("Outlook.Application")
Set objOutlookMsg = OutApp.CreateItem(olMailItem)

Set Recipients = objOutlookMsg.Recipients
Set objOutlookRecip = Recipients.Add("alias@domain.com")
objOutlookRecip.Type = 1
 
objOutlookMsg.SentOnBehalfOfName = "sales@domain.com"
objOutlookMsg.Subject = "Testing this macro"
objOutlookMsg.HTMLBody = "Testing this macro" & vbCrLf & vbCrLf

'Resolve each Recipient's name.
For Each objOutlookRecip In objOutlookMsg.Recipients
objOutlookRecip.Resolve
Next

'objOutlookMsg.Send
objOutlookMsg.Display

Set OutApp = Nothing

End Sub
Avatar billede Cale Mester
12. maj 2021 - 17:01 #2
Den virker ellers afsender bliver den jeg ønsker.

Kan man kombiner den formel fra den adresse?

https://da.extendoffice.com/documents/outlook/5064-outlook-send-multiple-drafts-at-once.html

Så alle fra den kladde kan sendes på én gang?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester