email verzenden

[ACER10]

Geste,

Kan er mij iemand uitleggen hoe ik met een macro één pagina kan verzenden uit een geheel van pagina's in mijn Excel werkomgeving.

De gegevens zijn:
Werkblad: Planning
Pagina die ik wens te verzenden: Bevestiging

Ik zou dit met een aan te maken KNOP en met MACRO willen laten uitvoeren.

Alvast bedankt.

Ed

 

[SjonR]

hier kom je wel verder mee denk ik:

https://www.rondebruin.nl/win/section1.htm

 

[ACER10]

SjonR,

Ik heb uw antwoord eens bekeken... maar als beginneling is dit voor mij onbegonnen werk hoor, toch bedankt.

Ed

 

[edmoor]

Plaats eens een voorbeeld documentje.
Dan kunnen we daarin een daarop toegespitst voorbeeld voor je maken.
Dat maakt het vaak wel duidelijker.

 

[ACER10]

voorbeeldje

Ik heb een klein voorbeeldje gemaakt van wat ik zou willen bekomen.
Het is een los stukje uit een groot werkblad met veel paginas.

de bedoeling is om hier BLAD 2 genoemd via mail door te sturen naar de persoon
die de klassementen bijhoud. nu doen we dit via papier en dat kan wel even duren voor het
ter bestemming komt...

Er dient een knop aangemaakt te worden op BLAD 1 die BLAD 2 dan verzend.

 

[edmoor]

Er is geen BLAD 1 en geen BLAD 2 te zien.
En ik moet eerst inloggen?

 

[AD1957]

probeer dit eens.

Sub uitslagverzenden()
'
' uitslagverzenden Macro
'

[COLOR="#FF0000"]Sheets("Uitslag Dag").Visible = True[/COLOR]
    Sheets("Uitslag Dag").Select
    Range("B1:G40").Select
    Selection.Copy
    Application.CutCopyMode = False
    Application.Dialogs(xlDialogSendMail).Show
[COLOR="#FF0000"]Sheets("Uitslag Dag").Visible = False[/COLOR]
End Sub

Sorry, vraag niet goed gelezen, dit zet geen zoden aan de dijk.
Maak je gebruik van microsoft OUTLOOK ??

 

[AD1957]

Als je microsoft OUTLOOK gebruikt.

Sub ZendMail()
Dim OutApp As Object
Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Sheets("Uitslag Dag")
         Bestand = Environ("temp") & "\" & "uitslag dag " & .Range("B1") & ".pdf"
        .Range("B1:G40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand

        StrTo = emailadres
        StrSubject = "bla bla bla"
        strbody = "Beste" & vbCrLf & vbCrLf & _
               "Als bijlage ontvangt U hierbij de uitslag" & vbCrLf & vbCrLf & _
               "groet," & vbCrLf & vbCrLf & _
               "naam verzender"
    End With

    With OutMail
        .To = StrTo
        .Subject = StrSubject
        .Body = strbody
        .Attachments.Add Bestand
        .Display      ' .Send voor direct verzenden


    End With



    Kill Bestand 'verwijderen van het tijdelijk aangemaakte bestand*
    Set OutMail = Nothing
    Set OutApp = Nothing

    
    
End Sub

 

[ACER10]

fout melding...

Ik heb uw code in mijn werkblad ingevoerd en wat aangepast, maar ik krijg een foutmelding.
Weet jij daar een oplossing voor?
Zie bijlages en aangepaste code

Sub ZendMail()
Dim OutApp As Object
Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Sheets("Uitslag Dag")
         Bestand = Environ("temp") & "" & "Uitslag Dag " & .Range("B1") & ".pdf"
        .Range("B1:G40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand

        StrTo = ("edpo@telenet.be")
        StrSubject = "Uitslag"
        strbody = "Beste" & vbCrLf & vbCrLf & _
               "Als bijlage ontvangt U hierbij de uitslag" & vbCrLf & vbCrLf & _
               "groet," & vbCrLf & vbCrLf & _
               "De verantwoordelijke"
    End With

    With OutMail
        .To = StrTo
        .Subject = StrSubject
        .Body = strbody
        .Attachments.Add Bestand
        .Display

    End With



    Kill Bestand
    Set OutMail = Nothing
    Set OutApp = Nothing

    
    
End Sub

 

[edmoor]

Zet code in codetags, nu vallen de backslashes weg.

 

[alphamax]

Heb je de mail met .Display nog op het beeld open staan, terwijl je met Kill Bestand de bijlage al wil verwijderen?

 

[AD1957]

Op welke regel krijg je de foutmelding.
Plaats anders even het bestandje.
verander dit

StrTo = ("edpo@telenet.be")

eens in

StrTo = "edpo@telenet.be"

p.s. zet de volgende keer de code tussen codetags

 

[AD1957]

controleer dit eens goed.

 Bestand = Environ("temp") & "\" & "uitslag dag " & .Range("B1") & ".pdf"

in jouw code mis ik de backslash

 

[edmoor]

Dat komt door het niet gebruiken van codetags.

 

[AD1957]

Ik wist niet dat de backslash wegvalt als de codetags niet worden gebruikt.
Weer wat geleerd.

p.s. Bij mij werkt het gewoon.

 

[ACER10]

With Sheets("Uitslag Dag")
         Bestand = Environ("temp") & "" & "Uitslag Dag " & .Range("B1") & ".pdf"
         
        .Range("B1:G40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand        [B] <<<<<< foutmelding[/B]

        StrTo = "edpo@telenet.be"
        StrSubject = "Uitslag"

 

[JEC.]

Ik heb je bestand niet bekeken maar gebruik je tekens in B1 welke niet worden geaccepteerd in een bestandsnaam?
Is je bestand opgeslagen?

 

[AD1957]

In #16 staat de code tussen codetags en nog steeds mis ik de backslash.

Bestand = Environ("temp") & "[B][COLOR="#FF0000"][SIZE=4]\[/SIZE][/COLOR][/B]" & "Uitslag Dag " & .Range("B1") & ".pdf"

 

[edmoor]

Die zal je inderdaad missen als je naderhand de codetags gebruikt.
Die \ is dan al weg.

 

[JEC.]

Code stond eerst niet tussen codetags. Daarom ontbreken ze nu. Maarja, geen gehoor verder