Bijlage versturen via macro

[Muiter]

Via onderstaande code kan ik een e-mail versturen inclusief bijlage.

Sub Offerte_mail()
'
' Offerte_mail
' Offerte versturen per e-mail.
'

'
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
 
With Itm
    .Subject = Range("S33")
    .To = "xxxx@xxx.xx"
    .CC = "xxxx@xxx.xx"
    .body = "Bijgaand de door gevraagde offerte als pdf bestand." & vbCrLf & vbCrLf
    .Attachments.Add ("N:\Complete dossiers offertes en opdrachten\2008\xxxxxxxxxx.pdf")
    .Send
End With
End Sub

Echter wil ik het e-mail adres van de ontvanger en de locatie van de bijlage uit een cel halen. In de cel worden deze waarden samengebouwd met formules.

Hoe kan ik mijn macro aanpassen

 

[Roncancio]

Sub Offerte_mail()
'
' Offerte_mail
' Offerte versturen per e-mail.
'

'
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
 
With Itm
    .Subject = Range("A1").Value
    .To = Range("A2").Value
    .CC = "xxxx@xxx.nl"
    .body = "Bijgaand de door gevraagde offerte als pdf bestand." & vbCrLf & vbCrLf
    .Attachments.Add (Range("A3").Value)
    .Send
End With
End Sub

Met vriendelijke groet,


Roncancio

 

[RaymondC]

zie ook op:

http://office.webforums.nl/forum/viewtopic.php?t=33341

 

[Muiter]

Sub Offerte_mail()
'
' Offerte_mail
' Offerte versturen per e-mail.
'

'
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
 
With Itm
    .Subject = Range("A1").Value
    .To = Range("A2").Value
    .CC = "xxxx@xxx.xx"
    .body = "Bijgaand de door gevraagde offerte als pdf bestand." & vbCrLf & vbCrLf
    .Attachments.Add (Range("A3").Value)
    .Send
End With
End Sub

Met vriendelijke groet,


Roncancio

Bedankt voor de oplossing.
PS: Excuses voor de crossposting op 2 fora, ik ben niet gewend dat leden op diverse fora kijken, zelf ben ik ook 'honkvast'.

 

[Roncancio]

Bedankt voor de oplossing.
PS: Excuses voor de crossposting op 2 fora, ik ben niet gewend dat leden op diverse fora kijken, zelf ben ik ook 'honkvast'.

De wereld is klein.
Gaarne de vraag op opgelost zetten.

Met vriendelijke groet,


Roncancio

 

[Muiter]

Gaarne de vraag op opgelost zetten.

Hoe? Ik kan mijn topictitel niet aanpassen.

 

[Roncancio]

Hoe? Ik kan mijn topictitel niet aanpassen.

Dat hoeft ook niet, integendeel zelfs.
Rechtsonderaan dit scherm kan je aanklikken dat de vraag is opgelost.

Met vriendelijke groet,


Roncancio