extra bijlage toevoegen

[Evertblokdijk]

Goede dag allemaal

Ik ben druk bezig met het ontwikklen van een nog al uitgebreide excel workbook.

Kan iemand mij uitleggen hoe ik bij onderstaande marco, standaard een zelfde bijlage kan toevoegen (Algemene voorwaarden) die op een vaste locatie op mijn harde schijf staat

Alvast vriendelijk bedankt voor jullie terugkoppeling

Sub confirmation()
    
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    Bestand = Environ("TEMP") & "\" & Range("o28") & ".pdf"
    Range("m18:ak87").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    Tekst = "Valued relation,<br><br>Attached you find our confirmation as agreed upon<br>"
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Display
        .To = Range("s32")
        .CC = Range("AI15")
        .BCC = Range("ai16")
        .Subject = Range("o28")
        .Attachments.Add Bestand
        .HTMLBody = Tekst & .HTMLBody
    End With
End Sub

 

[edmoor]

Zo:

.Attachments.Add Bestand
.Attachments.Add Bestand2

 

[Evertblokdijk]

En waar geef ik dan de locatie van Bestand 2 op ?
Ik kan natuurlijk het 2e bestand ook in Excel plaatsen (Misschien makkelijker) maar dan
denk ik niet dat deze formule nog werk. daar de opdracht in de Temp wordt weggeschreven

 

[edmoor]

Uiteraard is Bestand2 dan een variabele die je moet vullen met de locatie en naam van bestand.

 

[Evertblokdijk]

Ja, zover volg ik je helemaal.

maar .. kan ik de bestaande formule dan aanpassen naar :

Sub confirmation()
    
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    Bestand = Environ("TEMP") & "\" & Range("o28") & ".pdf"
    Range("m18:k87").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand

    Bestand2 = Environ("TEMP") & "\" & Range("o28") & ".pdf"
    Range("ao18:ak87").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand

    Tekst = "Valued relation,<br><br>Attached you find our confirmation as agreed upon<br>"
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Display
        .To = Range("s32")
        .CC = Range("AI15")
        .BCC = Range("ai16")
        .Subject = Range("o28")
        .Attachments.Add Bestand

        .Attachments.Add Bestand2

        .HTMLBody = Tekst & .HTMLBody
    End With
End Sub

 

[edmoor]

Je zei zelf dit:
"die op een vaste locatie op mijn harde schijf staat"

Lijkt me logisch dat Bestand2 dan die waarde moet krijgen.

 

[OctaFish]

Doe je nou niet twee keer hetzelfde bestand?

 

[OctaFish]

Als ik tenminste hier naar kijk

Bestand = Environ("TEMP") & "\" & Range("o28") & ".pdf"
Bestand2 = Environ("TEMP") & "\" & Range("o28") & ".pdf"

 

[Evertblokdijk]

Edmoor,

En hoe geef ik dan delocatie van bestand 2 op ?

Ik neem aan dat ik dan in onderstaande wat moet veranderen ? Maar wat ? en Hoe ?

Bestand2 = Environ("TEMP") & "\" & Range("o28") & ".pdf"
    Range("ao18:ak87").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand

 

[OctaFish]

Mag alleen ed antwoorden? Stuur 'm dan een PM en doe dit niet via een publiek forum...

 

[Evertblokdijk]

nee Natuurlijk niet
iedereen die een oplossing heeft, mag antwoorden .. Graag zelfs

 

[edmoor]

Lijkt me toch zo logisch:

Bestand2 = "C:\locatie\bestand.pdf"

 

[OctaFish]

Kan iemand mij uitleggen hoe ik bij onderstaande marco, standaard een zelfde bijlage kan toevoegen (Algemene voorwaarden)

        .Attachments.Add Bestand
        .Attachments.Add Bestand

Overigens zou dit al voldoende moeten zijn.

 

[Evertblokdijk]

perfect, probleem opgelost