• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bijlage versturen via macro

Status
Niet open voor verdere reacties.
M

Muiter

Gebruiker
Lid geworden
11 jul 2008
Berichten
73
Via onderstaande code kan ik een e-mail versturen inclusief bijlage.

Code: 
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
 
Laatst bewerkt:
Code: 
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
 
Laatst bewerkt door een moderator:
Roncancio zei:
Code: 
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
Klik om te vergroten...


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'.
 
Laatst bewerkt:
Muiter zei:
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'.
Klik om te vergroten...

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

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan