Help!

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

Hulp bij posten

Recente topics

Auteur Topic: exel vragen over weken/dagen en emailen  (gelezen 5932 keer)

0 leden en 1 gast bekijken dit topic.

Offline Wilbert

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
exel vragen over weken/dagen en emailen
« Gepost op: 06 april 2020, 15:18:50 »
Beste,

Ik zit nog met een 2 tal vragen nadat ik via dit forum al heel goed ben geholpen.
Ik heb het voorbeeld bestand als bijlage (tabblad "1 soort") toegevoegd.

Vraag over email:
als ik nu op de knop "Versturen als mail (PDF) druk opent het programma een nieuw email bericht waar het bestand als PDF is toegevoegd.
Is het mogelijk om het vak "onderwerp" in de email direct met tekst te vullen?
Is zou dit graag willen doen met de inhoud van cel "D28 met daarachter de inhoud van cel D5.
Is dit mogelijk?

Vraag over datum:
In cel E10 zou ik graag de leeftijd in weken en dagen willen zien.
Dit is het verschil tussen de datum die in cel L5 en E8.
Nu staat er het verschil tussen deze 2 cellen.
In het voorbeeld zijn dit 20 dagen, als ik dit terug reken is dit 2,86 weken.
Ik zou graag dat er dan 2,6 (2 weken en 6 dagen) in de cel zou komen staan.
Is dit mogelijk?

Alvast bedankt voor jullie reactie

Met vriendelijke groet,

WH van den Heuvel

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: exel vragen over weken/dagen en emailen
« Reactie #1 Gepost op: 06 april 2020, 15:41:29 »
Voor uw eerste vraag.(zie de lijn subject)
Sub mailpdf()
    Bestand = ThisWorkbook.Path & "\" & Range("d28").Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Subject = [D28] & " " & [D5]
        .Attachments.Add Bestand
        .Display
    End With
 Kill (Bestand)
End Sub
Als niemand mij voor is kijk ik straks naar je tweede vraag, nu moet ik eventjes weg.

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: exel vragen over weken/dagen en emailen
« Reactie #2 Gepost op: 06 april 2020, 15:52:01 »
Hoi,

Niet gevraagd, maar bij wijze van toemaatje : behoudens 'subject' krijg je desgewenst nog wat meer voor mekaar, bv :
Sub mailpdf()
    Bestand = ThisWorkbook.Path & "\" & Range("d28").Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Subject = [D28] & " " & [D5] '(onderwerp)
        .To = .....
        .CC = .....
        .Body = ..... '(bericht)
        .Attachments.Add Bestand
        .Display
    End With
 Kill (Bestand)
End Sub

Dagen naar weken/dagen :
=GEHEEL((L5-E8)/7) & "," & REST(L5-E8;7)
Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: exel vragen over weken/dagen en emailen
« Reactie #3 Gepost op: 06 april 2020, 16:13:51 »
 ;D ;D 0:-)

Offline Wilbert

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: exel vragen over weken/dagen en emailen
« Reactie #4 Gepost op: 06 april 2020, 16:26:31 »
Beste Pitufo en Dotchiejack,

Alvast bedankt voor jullie reacties.
Ik ga straks of morgen kijken of het werkt.

Ik zie deze toevoeging er extra in gezet door Pitufo:
 With OutMail
        .Subject = [D28] & " " & [D5] '(onderwerp)
        .To = .....
        .CC = .....
        .Body = ..... '(bericht)

Wat kan ik precies met .To = ....... en .CC = ........ en .Body = .....

Ik heb wel e-mailadressen staan op het tablad "opfokbedrijven", die staan normaal in kolom I.
Kan ik deze ook automatisch in laten voegen op deze manier?

Alvast bedankt

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: exel vragen over weken/dagen en emailen
« Reactie #5 Gepost op: 06 april 2020, 16:44:27 »
Voorbeeldje.
Sub mailpdf()
    Bestand = ThisWorkbook.Path & "\" & Range("d28").Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Subject = [D28] & " " & [D5] '(onderwerp)
        .To = "pannenkoek@gmail.com"
        .CC = "wilbertje@yahoo.com"
        .Body = "Beste," & vbCrLf & "In bijlage de opfokresultaten"
        .Attachments.Add Bestand
        .Display
    End With
 Kill (Bestand)
End Sub

Offline Wilbert

  • Lid
  • *
  • Berichten: 37
  • Oplossing.be
Re: exel vragen over weken/dagen en emailen
« Reactie #6 Gepost op: 06 april 2020, 16:49:22 »
Dat is helemaal super!!
Ik kan er zo een paar vast adressen inzetten maar kan ik ook verwijzen naar een cel waarvan het adres overgenomen word?
Als ik op het startblad een opfokker selecteer dan selecteer ik een adres, kan ik dan ook het e-mailadres in "blinde cel" laten zetten?
Dit zou ook gelden voor de begeleider maar daar heb ik nog geen adressen van in staan.

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: exel vragen over weken/dagen en emailen
« Reactie #7 Gepost op: 06 april 2020, 16:51:19 »
tuurlijk, emailadres in cel A1
To = [A1]

Extra tip, als alles automatisch wordt ingevuld dan kan je Display vervangen door Send.

 


www.combell.com