Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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.
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 <-----fout in deze regel
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
With Sheets("Uitslag Dag")
[COLOR="#FF0000"] .Visible = True[/COLOR]
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"
[COLOR="#FF0000"].Visible = False[/COLOR]
End With
Sub jec()
Dim xFile
xFile = Environ("temp") & "\" & "Uitslag Dag" & cleaning(Sheets("Uitslag Dag").Range("B1")) & ".pdf"
Sheets("Uitslag Dag").Range("B1:G40").ExportAsFixedFormat xlTypePDF, xFile
With CreateObject("outlook.application").createitem(0)
.to = "edpo@telenet.be"
.Subject = "Uitslag"
.body = "Beste" & vbCrLf & vbCrLf & "Als bijlage ontvangt U hierbij de uitslag" & vbCrLf & vbCrLf & "groet," & vbCrLf & vbCrLf & "De verantwoordelijke"
.Attachments.Add xFile
.display
End With
Kill xFile
End Sub
Function cleaning(x As String) As String
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "[\\/:?<>|\*""]"
cleaning = .Replace(x, "")
End With
End Function
Sub jec()
Dim xFile
xFile = Environ("temp") & "\" & "Uitslag Dag" & Replace(Sheets("Uitslag Dag").Range("B1"), "/", "-") & ".pdf"
Sheets("Uitslag Dag").Range("B1:G40").ExportAsFixedFormat xlTypePDF, xFile
With CreateObject("outlook.application").createitem(0)
.to = "edpo@telenet.be"
.Subject = "Uitslag"
.body = "Beste" & vbCrLf & vbCrLf & "Als bijlage ontvangt U hierbij de uitslag" & vbCrLf & vbCrLf & "groet," & vbCrLf & vbCrLf & "De verantwoordelijke"
.Attachments.Add xFile
.display
End With
Kill xFile
End Sub
Sub jec()
Dim a(1), it, sp, x As Long
For Each it In Array("Uitslag Dag|B1:G40", "FORM|A1:K25")
sp = Split(it, "|")
a(x) = Environ("temp") & "\" & sp(0) & Replace(Sheets(sp(0)).Range("B1"), "/", "-") & ".pdf"
Sheets(sp(0)).Range(sp(1)).ExportAsFixedFormat xlTypePDF, a(x)
x = x + 1
Next
With CreateObject("outlook.application").createitem(0)
.to = "edpo@telenet.be"
.Subject = "Uitslag"
.body = "Beste" & vbCrLf & vbCrLf & "Als bijlage ontvangt U hierbij de uitslag" & vbCrLf & vbCrLf & "groet," & vbCrLf & vbCrLf & "De verantwoordelijke"
.Attachments.Add a(0)
.Attachments.Add a(1)
.display
End With
Kill a(0)
Kill a(1)
End Sub
Sub M_snb()
For Each it In Array("'Uitslag Dag'!B1:G40", "'FORM'!A1:K25")
Evaluate(it).ExportAsFixedFormat 0, Environ("temp") & "\" & Evaluate(it).Parent.Name & Replace(Evaluate(it).Cells(1), "/", "-") & ".pdf"
Next
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.