Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Verzending excel in pdf + EXTRA PDF-BIJLAGE  (gelezen 20021 keer)

0 leden en 1 gast bekijken dit topic.

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #15 Gepost op: 30 november 2020, 07:55:11 »
Koe: hieronder de code die ik momenteel gebruik

Sub Dotch()

''variabelen
Plaats = "C:\JVC\Contracten\"  ''AANPASSEN indien nodig (standaard: "C:\JVC\Contracten\")
Naam = Range("Q1").Value
adres = Range("O11").Value
CC = Range("R14").Value
BCC = Range("R15").Value
onderwerp = "Contract"
ondergetekende = Range("C41").Value
handtekening = "Beste," & vbLf _
            & vbLf _
            & vbLf _
            & "Met vriendelijke groeten," & vbLf _
            & "Ann"

           
''Nagaan of het bestand reeds bestaat, zoniet opslaan en verder
If Dir(Plaats & Naam & ".pdf") <> "" Then
    MsgBox "Het contract - " & Naam & ".pdf - bestaat reeds. Vul een ander contractnummer in of wis het bestaande contract"
    Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Plaats & Naam & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End If

''bestand toevoegen aan mail met naam vermeld in cel Q1
verder:

Bestand = ThisWorkbook.Path & "\" & Range("Q1").Value & ".pdf" ''= variabele
HHR = "C:\JVC\HHR.pdf" ''AANPASSEN indien nodig

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = adres
        .CC = CC
        .BCC = BCC
        .Subject = onderwerp
        .Body = handtekening & vbNewLine & ondergetekende
        .Attachments.Add Bestand
        .Attachments.Add HHR
        .Display
    End With
 Kill (Bestand)
End Sub

Mvg, Janna

[Office 2019]

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #16 Gepost op: 01 december 2020, 22:46:17 »
zo ? afhankelijk van de username van je andere collega, het zaakje aanvullen

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #17 Gepost op: 05 december 2020, 22:26:41 »
Dankjewel Koe

Ik loop vast op een fout :                .Attachments.Add vAtt
Ik heb een bestand toegevoegd van al hetgeen ik al heb.


Mvg, Janna

[Office 2019]

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #18 Gepost op: 05 december 2020, 23:20:53 »
ik kan geen outlook testen, dus ik gok dat vAtt geen Variant mag zijn, dus heb ik hem in een string gestopt.If VarType(vAttachments) > 0 Then
         If IsArray(vAttachments) = False Then
            .Attachments.Add vAttachments
         Else
            Dim sBestand As String
            For Each vatt In vAttachments
               sBestand = CStr(vatt)
               .Attachments.Add sBestand
            Next
         End If
      End If
 

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #19 Gepost op: 08 december 2020, 15:07:32 »
Dankjewel maar helaas  :-[
ik kan geen outlook testen, dus ik gok dat vAtt geen Variant mag zijn, dus heb ik hem in een string gestopt.If VarType(vAttachments) > 0 Then
         If IsArray(vAttachments) = False Then
            .Attachments.Add vAttachments
         Else
            Dim sBestand As String
            For Each vatt In vAttachments
               sBestand = CStr(vatt)
               .Attachments.Add sBestand
            Next
         End If
      End If
 
Mvg, Janna

[Office 2019]

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #20 Gepost op: 08 december 2020, 17:10:39 »
op welke regel loop je vast ?

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #21 Gepost op: 08 december 2020, 20:00:23 »
op welke regel loop je vast ?

Sub Email_Outlook()
   Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(0)
   With OutMail
      .To = Adres
      .CC = CC
      .BCC = BCC
      .Subject = Onderwerp
      .Body = Handtekening & vbNewLine & Ondergetekende

If VarType(vAttachments) > 0 Then
         If IsArray(vAttachments) = False Then
            .Attachments.Add vAttachments
         Else
            Dim sBestand As String
            For Each vatt In vAttachments
               sBestand = CStr(vatt)
              .Attachments.Add sBestand
            Next
         End If
      End If
 
      .Display
   End With
End Sub
Mvg, Janna

[Office 2019]

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #22 Gepost op: 08 december 2020, 20:02:59 »
Het gaat dus over deze regel:
.Attachments.Add sBestand
Mvg, Janna

[Office 2019]

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #23 Gepost op: 08 december 2020, 20:32:04 »
ik ben het net even bij een buur gaan proberen.
Daar lukte het wel, maar met andere bijlagen.
Dus tik even voor die foute regelmsgbox sbestand
.Attachments.Add sBestand
en kijk dan even via verkenner of dat bestand, dat net in die msgbox verscheen, ook werkelijk op je harde schijf staat. Ik vermoed ergens een tikfout in je bestandsnaam.

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #24 Gepost op: 09 december 2020, 09:29:07 »
ik ben het net even bij een buur gaan proberen.
Daar lukte het wel, maar met andere bijlagen.
Dus tik even voor die foute regelmsgbox sbestand
.Attachments.Add sBestand
en kijk dan even via verkenner of dat bestand, dat net in die msgbox verscheen, ook werkelijk op je harde schijf staat. Ik vermoed ergens een tikfout in je bestandsnaam.

GIJ ZIJT GEWELDIG !!!  \o/
Mvg, Janna

[Office 2019]

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #25 Gepost op: 09 december 2020, 09:44:45 »
Nog 1 vraag:

Ik heb om te proberen thunderbird geïnstalleerd op mijn computer en als standaard e-mailprogramma ingesteld.
Ik heb de username ingevuld in het eerste deel van je script: ik heb zowel het e-mailadres als de naam gebruikt (foto accountgegevens in bijlage)
Hij blijft altijd outlook openen.  De test lukt dus niet bij mij.
  • Mag ik er toch vanuit gaan dat dit werkt als iemand enkel met thunderbird werkt?
  • Dat de mail wordt klaargezet om te verzenden met de gegevens die erbij zitten als ik het via outlook verzend?
Option Compare Text
Private Adres, CC, BCC, Onderwerp, Handtekening, Ondergetekende, vAttachments

Sub MijnMacro()

''variabelen
   Plaats = "C:\JVC\Contracten\"                 ''AANPASSEN indien nodig (standaard: "C:\JVC\Contracten\")
   Naam = Range("Q1").Value
   Adres = Range("P10").Value
   CC = Range("R14").Value
   BCC = Range("R15").Value
   Onderwerp = "Contract"
   Ondergetekende = Range("P25").Value
   Handtekening = "Beste," & vbLf _
                  & vbLf _
                  & vbLf _
                  & "Met vriendelijke groeten," & vbLf _
                 

   ''Nagaan of het bestand reeds bestaat, zoniet opslaan en verder
   If Dir(Plaats & Naam & ".pdf") <> "" Then
      MsgBox "Het contract - " & Naam & ".pdf - bestaat reeds. Vul een ander contractnummer in of wis het bestaande contract"
      Exit Sub
   Else
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Plaats & Naam & ".pdf", Quality:=xlQualityStandard, _
                                      IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
   End If

   ''bestand toevoegen aan mail met naam vermeld in cel Q1
verder:

   bestand = ThisWorkbook.Path & "\" & Range("Q1").Value & ".pdf"   ''= variabele
   hhr = "C:\JVC\HHR.pdf"                        ''AANPASSEN indien nodig
   vAttachments = Array(bestand, hhr)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=bestand

   Select Case Application.UserName
      Case "JANN71", "BSA", "nog iemand anders username": Email_Thunderbird   'opsomming van usernames die Thunderbird gebruiken
      Case Else: Email_Outlook 'al de anderen
   End Select

   Kill (bestand)
End Sub
Sub Email_Outlook()
   Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(0)
   With OutMail
      .To = Adres
      .CC = CC
      .BCC = BCC
      .Subject = Onderwerp
      .Body = Handtekening & vbNewLine & Ondergetekende

 If VarType(vAttachments) > 0 Then
         If IsArray(vAttachments) = False Then
            .Attachments.Add vAttachments
         Else
            Dim sBestand As String
            For Each vatt In vAttachments
               sBestand = CStr(vatt)
               .Attachments.Add sBestand
            Next
         End If
      End If
 

      .Display
   End With
End Sub
Sub Email_Thunderbird()
   thund = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe " & _
           "-compose " & """" & _
           "to='" & Adres & "'," & _
           "cc='" & CC & "'," & _
           "bcc='" & BCC & "'," & _
           "subject='" & Onderwerp & "'," & _
           "body='" & Handtekening & vbNewLine & Ondergetekende & "'"

   If VarType(vAttachments) > 0 Then
      If IsArray(vAttachments) = False Then
         thund = thund & ",attachment='" & vAttachments & "',"
      Else
         thund = thund & ",attachment='" & Join(vAttachments, ",") & "',"
      End If
   End If

   Call Shell(thund, vbNormalFocus)
   Application.Wait Now + TimeValue("00:00:02")
   'SendKeys "^{ENTER}", True'voorlopig enkel als commentaar, als je echt wil verzenden mag die enkele aanhalingsteken voorin weg
   'Application.Wait Now + TimeValue("00:00:05")
End Sub



Mvg, Janna

[Office 2019]

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #26 Gepost op: 09 december 2020, 10:05:34 »
het is de username van je computer die ik gebruikte en die is hoogst waarschijnlijk niet zelfde als die binnen Thunderbird.Het kiezen tussen Outlook en Thunderbird mag anders ook op een andere manier gebeuren, bv. via een keuze in een bepaalde cel als dat voor jou gemakkelijker is.Msgbox application.username
Select Case Application.UserName
 

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #27 Gepost op: 09 december 2020, 10:08:46 »
ik kan een antwoord niet meer wijzigen, dus in een nieuw antwoord, voeg die regel met die msgbox net voor die andere toe.

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #28 Gepost op: 09 december 2020, 16:24:46 »
Ik kon er niet meer echt aan uit maar door die laatste code in een nieuwe module te zetten en te koppelen aan een andere knop vond ik wel gemakkelijk de username terug :-)

Met deze in te geven ging Thinderbird wel open dus da's al goed nieuws.

Volgens mij was dit echter niet wat jij bedoelde.
Mvg, Janna

[Office 2019]

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Verzending excel in pdf + EXTRA PDF-BIJLAGE
« Reactie #29 Gepost op: 09 december 2020, 18:02:00 »
Als Thunderbird open ging, dan is het OK, dan moet je even zelf naar Thunderbird zelf gaan en dan je je mail klaar zien staan met alles ingevuld, dus je To, CC, BCC, Body en bijlagen.
Nu moet je zelf nog "verzenden" drukken of die enkele aanhalingstekens weghalen om softwarematig een "Enter" te maken en je bent vertrokken.

Klopt er nog iets niet aan wat je voorgeschoteld krijgt binnen Thunderbird, dan moet je dat proberen op te lossen of me zeggen of nog beter een screenshot geven van wat je Thunderbird er van gebakken heeft.

Het kon anders ook zo, met een keuzecel in P32 (of een andere cel) If Range("P32").Value <> "Ja" Then            'in O32 staat er "mailen met Outlook" en in P32 via validatie kan je kiezen tussen ja en nee
      Email_Thunderbird                          'opsomming van usernames die Thunderbird gebruiken
   Else
      Email_Outlook                              'al de anderen
   End If



 


www.combell.com