Click here to Skip to main content
14,364,458 members

Visual Basic

 
PinnedHOW TO ANSWER A QUESTION PinPopular
Chris Maunder12-Jul-09 23:40
adminChris Maunder12-Jul-09 23:40 
PinnedHow to get an answer to your question PinPopular
Chris Maunder10-Nov-05 17:30
adminChris Maunder10-Nov-05 17:30 
QuestionMessage Closed Pin
17-Nov-19 21:37
professionalMorgan Lang17-Nov-19 21:37 
AnswerRe: can not find the pin Pin
Richard MacCutchan17-Nov-19 22:17
protectorRichard MacCutchan17-Nov-19 22:17 
Questiongroup by name for sum amount Pin
Member 1332257413-Nov-19 20:39
memberMember 1332257413-Nov-19 20:39 
AnswerRe: group by name for sum amount Pin
Dave Kreskowiak14-Nov-19 3:40
mveDave Kreskowiak14-Nov-19 3:40 
Questioncode project data base Pin
abuahmed20191-Nov-19 5:24
memberabuahmed20191-Nov-19 5:24 
AnswerRe: code project data base Pin
Dave Kreskowiak1-Nov-19 6:00
mveDave Kreskowiak1-Nov-19 6:00 
QuestionSystem.IO.IOException HResult=0x80131620 When using NetworkStream.Read function Pin
fd975029-Oct-19 23:48
professionalfd975029-Oct-19 23:48 
AnswerRe: System.IO.IOException HResult=0x80131620 When using NetworkStream.Read function Pin
Richard MacCutchan30-Oct-19 0:09
protectorRichard MacCutchan30-Oct-19 0:09 
GeneralRe: System.IO.IOException HResult=0x80131620 When using NetworkStream.Read function Pin
fd975030-Oct-19 0:23
professionalfd975030-Oct-19 0:23 
GeneralRe: System.IO.IOException HResult=0x80131620 When using NetworkStream.Read function Pin
fd975030-Oct-19 1:02
professionalfd975030-Oct-19 1:02 
QuestionHow to solve problem with datagrid and tabcontrol(vb.net) Pin
Member 1447080727-Oct-19 23:52
memberMember 1447080727-Oct-19 23:52 
AnswerRe: How to solve problem with datagrid and tabcontrol(vb.net) Pin
Richard MacCutchan28-Oct-19 0:14
protectorRichard MacCutchan28-Oct-19 0:14 
GeneralRe: How to solve problem with datagrid and tabcontrol(vb.net) Pin
Member 1447080730-Oct-19 18:33
memberMember 1447080730-Oct-19 18:33 
GeneralRe: How to solve problem with datagrid and tabcontrol(vb.net) Pin
Richard MacCutchan30-Oct-19 23:58
protectorRichard MacCutchan30-Oct-19 23:58 
QuestionVB Script stopped working on Windows 10 + Office 365 Pro Pin
Member 1463660627-Oct-19 22:29
memberMember 1463660627-Oct-19 22:29 
Dear all,

Hope you can help me out, i am new to VB scripting and i get the question from a customer to help them out with there VB script, They have the script below that is working fine on a windows 7 + Office 2013 computer but now they are migrated to a Windows 10 device with Office 365 and the script is stoped working.

It is a VB script in Excel/Access that can save the selected e-mail in outlook to a *.msg file:

<pre>Sub SlaMailOp()
'Haal het ID op van de momenteel geselecteerde mail
Dim olApp As Outlook.Application, olNs As Namespace, Item As Object, eFldr As Object
Dim MailItem As Variant
Dim Onderwerp As String
On Error GoTo ErrorHandler
Set olApp = GetObject(, "Outlook.Application")
tmpOpenTextInvoer = "C:\temp\OpenTextInvoer"
If olApp Is Nothing Then
    Set olApp = CreateObject("Outlook.Application")
End If

' Set the reference to the oulook MAPI namespace
Set olNs = olApp.GetNamespace("MAPI")

Set eFldr = olNs.Application.ActiveExplorer.Selection
'If eFldr.Count > 1 Then
'    MsgBox "Er mag maar 1 e-mail geselecteerd zijn. Probeer het opnieuw", vbCritical
'    Exit Sub
'End If

For Each MailItem In eFldr

'Onderwerp = PasGeldigheidBestandsnaamAan(Left(eFldr.Item(1).Subject, 50))
'eFldr.Item(1).SaveAs "C:\TEMP\OpenTextInvoer\" & Onderwerp & ".msg"
If Dir(tmpOpenTextInvoer, vbDirectory) = "" Then
    MkDir tmpOpenTextInvoer
End If

    Onderwerp = PasGeldigheidBestandsnaamAan(Left(MailItem.Subject, 120)) & "_" & Format(Now, "YYMMDDHHMMSS")
    
    MailItem.SaveAs tmpOpenTextInvoer & "\" & Onderwerp & ".msg"
    
Next
'Onderwerp = Left(eFldr.Item(1).Subject, 50)
'OlId = eFldr.Item(1).EntryID
'Datum_binnenkomst = Format(eFldr.Item(1).ReceivedTime, "DD-MM-YYYY")

Set olApp = Nothing
Set olNs = Nothing

Set eFldr = Nothing

Exit Sub
ErrorHandler:
MsgBox "Er is een fout opgetreden bij het ophalen van de e-mail informatie! Is Outlook wel opgestart?" & vbCr & Err.Description, vbCritical
End Sub

Function PasGeldigheidBestandsnaamAan(Naam As String)


Naam = Replace(Naam, ":", "_")
Naam = Replace(Naam, "\", "_")
Naam = Replace(Naam, "/", "_")
Naam = Replace(Naam, "*", "_")
Naam = Replace(Naam, "?", "_")
Naam = Replace(Naam, "<", "_")
Naam = Replace(Naam, ">", "_")
Naam = Replace(Naam, "|", "_")
Naam = Replace(Naam, """", "_")
Naam = Replace(Naam, " ", "_")
Naam = Replace(Naam, "€", "EUR")
Naam = Replace(Naam, """, "")
Naam = Replace(Naam, "'", "")
Naam = Replace(Naam, "’", "")
Naam = Replace(Naam, "Ë", "E")
Naam = Replace(Naam, "ë", "e")
Naam = Replace(Naam, "Ö", "O")
Naam = Replace(Naam, "ö", "o")
Naam = Replace(Naam, "Ü", "U")
Naam = Replace(Naam, "ü", "u")
Naam = Replace(Naam, "@", "_AT_")
Naam = Replace(Naam, "#", "_")
Naam = Replace(Naam, "___", "_")
Naam = Replace(Naam, "__", "_")

PasGeldigheidBestandsnaamAan = Naam

End Function

Function Ampersand(Naam As String)

Ampersand = Replace(Naam, "&", "&")

End Function


AnswerRe: VB Script stopped working on Windows 10 + Office 365 Pro Pin
OriginalGriff27-Oct-19 22:33
protectorOriginalGriff27-Oct-19 22:33 
GeneralRe: VB Script stopped working on Windows 10 + Office 365 Pro Pin
Member 1463660627-Oct-19 22:36
memberMember 1463660627-Oct-19 22:36 
GeneralRe: VB Script stopped working on Windows 10 + Office 365 Pro Pin
OriginalGriff27-Oct-19 22:39
protectorOriginalGriff27-Oct-19 22:39 
GeneralRe: VB Script stopped working on Windows 10 + Office 365 Pro Pin
Member 1463660627-Oct-19 23:28
memberMember 1463660627-Oct-19 23:28 
GeneralRe: VB Script stopped working on Windows 10 + Office 365 Pro Pin
OriginalGriff27-Oct-19 23:41
protectorOriginalGriff27-Oct-19 23:41 
GeneralRe: VB Script stopped working on Windows 10 + Office 365 Pro Pin
Member 1463660627-Oct-19 23:53
memberMember 1463660627-Oct-19 23:53 
GeneralRe: VB Script stopped working on Windows 10 + Office 365 Pro Pin
OriginalGriff28-Oct-19 0:08
protectorOriginalGriff28-Oct-19 0:08 
QuestionListbox event, ItemSelectionChanged, how to wait for last event, or cancel events Pin
jkirkerx24-Oct-19 8:36
professionaljkirkerx24-Oct-19 8:36 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.