Beste Helpers,
Ik heb de vraag ook al gesteld in topic Excel. Ik wil graag vanuit een excel bestand elke werkblad apart mailen naar de desbetreffende persoon en het liefst in PDF. Nu heb ik wel een script gevonden, maar ben zo slecht in VBA dat ik niet weet wat er mee bedoeld wordt en weet ook niet hoe ik indirect een werkblad kan aangeven. Wil iemand mij een handje geven???
Ik heb hier de script vandaan: http://www.schoonepc.nl/nieuwsbrief/tips_versturen_facturen_email.html
Sub VerstuurEmail()
Dim objOl As Outlook.Application
Dim objMail As Object
Set objOl = Outlook.Application 'Start Outlook
Set objMail = objOl.CreateItem(olMailItem)
'Maakt e-mailbericht aan. olMailItem kan ook worden
'vervangen door 0 (code voor e-mailitem)
'////////////////////////////////////////////////////
'Dit stukje is voor Outlook 2007 voor het vastleggen
'van de afzender van een e-mailbericht. Hiervoor moet
'in VBA wel worden verwezen (Extra, Verwijzingen) naar
'minimaal Microsoft Outlook 12 Object Library.
Dim objAccount As Outlook.Account
For Each objAccount In objOl.Session.Accounts
If objAccount.DisplayName = "Naam Outlook-account" Then
Set objMail.SendUsingAccount = objAccount
End If
Next
Set objAccount = Nothing
'////////////////////////////////////////////////////
'Gebruik eventueel deze optie in oudere versies van Outlook
'waarbij een e-mail wordt verzonden namens een ander e-mailadres.
objMail.SentOnBehalfOfName = "Naam verzender <verzender@emailadres.nl>"
'////////////////////////////////////////////////////
With objMail
.To = "to@emailadres.nl" 'Deze moet worden aangepast
.CC = "cc@emailadres.nl" 'Deze moet worden aangepast of weggelaten
.BCC = "bcc@emailadres.nl" 'Moet ook worden aangepast of weggelaten
'Het is helaas niet mogelijk het FROM-veld aan te passen
'Zie bovenstaande oplossing voor Outlook 2007.
.Subject = "Onderwerp e-mail"
.Body = "Hier plaatst u de inhoud van het bericht"
'.HTMLBody = "<HTML><P>TEST</P></HTML>"
.NoAging = True
.Attachments.Add "C:\WINDOWS\WIN.INI" 'De locatie van de bijlage
'.Display 'Laat e-mail zien voordat hij wordt verzonden
'.Save 'Voorkomt de vraag om op te slaan, slaat op in Postvak In
.Send 'Verzenden van e-mailbericht
End With
Set objMail = Nothing
objOl.Quit
Set objOl = Nothing
End Sub
Ik heb de vraag ook al gesteld in topic Excel. Ik wil graag vanuit een excel bestand elke werkblad apart mailen naar de desbetreffende persoon en het liefst in PDF. Nu heb ik wel een script gevonden, maar ben zo slecht in VBA dat ik niet weet wat er mee bedoeld wordt en weet ook niet hoe ik indirect een werkblad kan aangeven. Wil iemand mij een handje geven???
Ik heb hier de script vandaan: http://www.schoonepc.nl/nieuwsbrief/tips_versturen_facturen_email.html
Sub VerstuurEmail()
Dim objOl As Outlook.Application
Dim objMail As Object
Set objOl = Outlook.Application 'Start Outlook
Set objMail = objOl.CreateItem(olMailItem)
'Maakt e-mailbericht aan. olMailItem kan ook worden
'vervangen door 0 (code voor e-mailitem)
'////////////////////////////////////////////////////
'Dit stukje is voor Outlook 2007 voor het vastleggen
'van de afzender van een e-mailbericht. Hiervoor moet
'in VBA wel worden verwezen (Extra, Verwijzingen) naar
'minimaal Microsoft Outlook 12 Object Library.
Dim objAccount As Outlook.Account
For Each objAccount In objOl.Session.Accounts
If objAccount.DisplayName = "Naam Outlook-account" Then
Set objMail.SendUsingAccount = objAccount
End If
Next
Set objAccount = Nothing
'////////////////////////////////////////////////////
'Gebruik eventueel deze optie in oudere versies van Outlook
'waarbij een e-mail wordt verzonden namens een ander e-mailadres.
objMail.SentOnBehalfOfName = "Naam verzender <verzender@emailadres.nl>"
'////////////////////////////////////////////////////
With objMail
.To = "to@emailadres.nl" 'Deze moet worden aangepast
.CC = "cc@emailadres.nl" 'Deze moet worden aangepast of weggelaten
.BCC = "bcc@emailadres.nl" 'Moet ook worden aangepast of weggelaten
'Het is helaas niet mogelijk het FROM-veld aan te passen
'Zie bovenstaande oplossing voor Outlook 2007.
.Subject = "Onderwerp e-mail"
.Body = "Hier plaatst u de inhoud van het bericht"
'.HTMLBody = "<HTML><P>TEST</P></HTML>"
.NoAging = True
.Attachments.Add "C:\WINDOWS\WIN.INI" 'De locatie van de bijlage
'.Display 'Laat e-mail zien voordat hij wordt verzonden
'.Save 'Voorkomt de vraag om op te slaan, slaat op in Postvak In
.Send 'Verzenden van e-mailbericht
End With
Set objMail = Nothing
objOl.Quit
Set objOl = Nothing
End Sub
Laatst bewerkt:
