Fout 400 bij uitvoering excelmacro vanaf website

[JosL]

Ik heb een verzendknop op een formulier gemaakt die in Outlook een mail opent met een standaard mailadres erin. Vanuit excel werkt die prima maar als ik dit formulier vanaf onze bedrijfswebsite probeer te versturen dan krijg ik een pop-up: Microsoft Visual Basic met een rood/wit kruis en "400" erachter. Er staan 2 knoppen bij: OK en Help. De help knop geeft een leeg scherm, dus daar heb je niets aan.
Ik heb het excelbestand in excel 2003 versie gemaakt.

Als ik vanaf de website eerst het bestand opsla op een eigen schijf en dan vervolgens dit bestand open dan lukt het weer wel om de verzendknop te gebruiken.

Heeft iemand enig idee wat de oplossing is om het formulier rechtstreeks vanuit de website te kunnen verzenden?

 

[Wigi]

Ik heb een verzendknop op een formulier gemaakt die in Outlook een mail opent met een standaard mailadres erin. Vanuit excel werkt die prima maar als ik dit formulier vanaf onze bedrijfswebsite probeer te versturen dan krijg ik een pop-up: Microsoft Visual Basic met een rood/wit kruis en "400" erachter. Er staan 2 knoppen bij: OK en Help. De help knop geeft een leeg scherm, dus daar heb je niets aan.
Ik heb het excelbestand in excel 2003 versie gemaakt.

Als ik vanaf de website eerst het bestand opsla op een eigen schijf en dan vervolgens dit bestand open dan lukt het weer wel om de verzendknop te gebruiken.

Heeft iemand enig idee wat de oplossing is om het formulier rechtstreeks vanuit de website te kunnen verzenden?

En welke code zit erachter?

 

[JosL]

de code achter de verzendknop

Onderstaande code zit achter mijn verzendknop:

Sub Mail_workbook_Outlook_2()
'Working in 2000-2010
'Deze versie slaat voor het verzenden een kopie op en verwijderd de kopie na afloop.
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim OutApp As Object
Dim OutMail As Object

Set wb1 = ActiveWorkbook

If Val(Application.Version) >= 12 Then
If wb1.FileFormat = 51 And wb1.HasVBProject = True Then
MsgBox "There is VBA code in this xlsx file, there will" & vbNewLine & _
"be no VBA code in the file you send. Save the" & vbNewLine & _
"file first as xlsm and then try the macro again.", vbInformation
Exit Sub
End If
End If

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

'Make a copy of the file/Open it/Mail it/Delete it
'If you want to change the file name then change only TempFileName
TempFilePath = Environ$("temp") & "\"
TempFileName = wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = "." & LCase(Right(wb1.Name, _
Len(wb1.Name) - InStrRev(wb1.Name, ".", , 1)))

wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr
Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr)

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

On Error Resume Next
With OutMail
.To = "emailadres"
.CC = ""
.BCC = ""
.Subject = "Te boeken journaalpost"
.Body = "Verzendadres niet veranderen s.v.p.!" & vbNewLine & _
"Voeg eventueel bijlagen en commentaar toe en druk op verzenden."
.Attachments.Add wb2.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0

wb2.Close SaveChanges:=False

'Delete the file
Kill TempFilePath & TempFileName & FileExtStr

Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub


Mvrgr JosL

 

[Wigi]

Je mag code ook tussen code tags plaatsen aub. Dat maakt het leesbaar.