thst
Gebruiker
- Lid geworden
- 10 apr 2001
- Berichten
- 655
Beste VBA Specialisten,
Ik krijg nu een MsgBox voor als ik wil mailen of printen.
Nu heb ik in cel o40 een 1 of 0 of niets.
1 betekend dat de factuur gemaild mag worden.
0 betekend dat de factuur afgedrukt mag worden.
en als er niets staat moet ik de MsgBox krijgen.
Wie kan voor mij de code aanpassen ?
Angela
Ik krijg nu een MsgBox voor als ik wil mailen of printen.
Nu heb ik in cel o40 een 1 of 0 of niets.
1 betekend dat de factuur gemaild mag worden.
0 betekend dat de factuur afgedrukt mag worden.
en als er niets staat moet ik de MsgBox krijgen.
Wie kan voor mij de code aanpassen ?
Angela
Code:
If MsgBox("Factuur mailen ?", vbQuestion + vbYesNo) = vbYes Then
'versturen van pdf via mail
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
'.Subject = "Bijgaand de factuur, en bevestiging aflevering."
.Subject = "Betreft rit: " & Range("O33").Value 'Plaats - Plaats
.To = Range("O32").Value & "" 'vul hier een mail adres in
.CC = ""
.Bcc = ""
'.Body = Range("P31").Value & Range("O31").Value & vbNewLine & vbNewLine & Range("P32").Value & vbNewLine & Range("P33").Value & vbNewLine & vbNewLine & Range("P34").Value & vbNewLine & Range("P35").Value & vbNewLine & vbNewLine & Range("P36").Value & vbNewLine & Range("P37").Value & vbNewLine & Range("P38").Value & vbNewLine & vbNewLine & Range("P39").Value & vbNewLine & Range("P40").Value
.Body = Replace([P31] & [O31] & "#" & "#" & [P32] & "#" & [P33] & "#" & "#" & [P34] & "#" & [P35] & "#" & "#" & _
[P36] & "#" & [P37] & "#" & [P38] & "#" & "#" & [P39] & "#" & [P40], "#", vbNewLine)
[ad1].CurrentRegion.ClearContents
fn = Dir("E:\A2B4U\Opdrachten\2010\*.pdf")
Do While fn <> ""
myResult = myResult & fn & "|"
fn = Dir()
Loop
[ad1].Resize(UBound(Split(myResult, "|"))) = WorksheetFunction.Transpose(Split(myResult, "|"))
Application.Calculate
.Attachments.Add sPDFPath & "\" & Replace(sPDFName, "xls", "pdf") 'Factuur word gemaild. (0123456789.pdf)
sPDFPath = "E:\A2B4U\Opdrachten\2010\"
If Range("o34") = "1" Then
.Attachments.Add sPDFPath & "\" & (Range("o35").Value) 'Vrachtbrief word gemaild. (0123456789v.pdf)
sPDFPath = "E:\A2B4U\Opdrachten\2010\"
End If
If Range("o36") = "1" Then
.Attachments.Add sPDFPath & "\" & (Range("o37").Value) 'Bevestiging word gemaild. (0123456789b.pdf)
sPDFPath = "E:\A2B4U\Opdrachten\2010\"
End If
If Range("o38") = "1" Then
.Attachments.Add sPDFPath & "\" & (Range("o39").Value) 'Pakbon word gemaild. (0123456789p.pdf)
End If
'.Attachments.Add sPDFPath & "\" & (Range("O29").Value) 'Vrachtbrief word gemaild. (0123456789v.pdf)
.Display
'.Save
'.Send
End With
Else
Worksheets(6).Cells(11, 16) = 0
Application.Calculate
With ActiveSheet
.Shapes("Afbeelding 11").Visible = False
.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
Worksheets(6).Cells(11, 16) = 1
Application.Calculate
.Shapes("Afbeelding 11").Visible = True
End With
End If
'End If Hoort bij MsgBox Loes ....
End Sub