Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Webprogrammeren & scripting

Mail automatisch verzenden.

Ik heb een Excel/VBA bestand.. Code hieronder. Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lngResponse As Long Dim URL As String, strEmail As String, strSubject As String If Left(Target.Address, 2) = "$D" Then If Target.Value < Range("$E" & Right(Target.Address, 2)).Value Then lngResponse = MsgBox("De voorraad is op. Nieuwe voorraad bestellen?", vbYesNo) If lngResponse = vbYes Then strEmail = Range("$H" & Right(Target.Address, 2)).Value strSubject = "Nieuwe voorraad bestellen:%0D%0A%0D%0A" & Range("$F" & Right(Target.Address, 2)).Value & " " & Range("$B" & Right(Target.Address, 2)).Value & " " strSubject = Application.WorksheetFunction.Substitute(strSubjec t, " ", "%20") strURL = "mailto:" & strEmail & "?subject=" & "Bestelling" & "&body=" & strSubject ShellExecute 0&, vbNullString, strURL, vbNullString, vbNullString, vbNormalFocus End If End If End If End Sub Het probleem is alleen dat ik het [b:28ed64cd58]"Outlook-Verzend-mail venstertje"[/b:28ed64cd58] in beeld hou en nog steeds zelf moet bedienen. Wat is de VBA-code voor het verzenden van de mail. (klik-klik) Grtz Mich.

Geeviz