Microsoft Office 15 Details to be revealed

Microsoft is ready to release details of the new and redesigned version of Office. The latter, by the way, is a real cash cow and selling licenses for Windows packaged with the Office suite is huge money. However, lately the package, including Microsoft Word, Excel and PowerPoint, has been under intense pressure with the rivals introducing products aimed at taking away its market share.

Office 15 LogoOffice 15 is promised to appear in the shops next year and features a lot of software attachments into Windows 8. However, the developers have been a little quiet about what will be under the bonnet. The experts point out that to do well Microsoft has to knock out any attempt by Google to push its competing Google Docs suite, as well as both Open Office and Libre Office that offer a free version of something very similar. Apple is expecting that people would ignore functionality and forces businesses try to tap 20,000 word reports and spreadsheets on iPad software. The company has somehow managed to keep Office and Google Docs off the iPad – «just in case”.

Overall, Office is responsible for $22.2 billion of the software giant’s nearly $70 billion in fiscal 2011 revenue, or $14.1 billion of operating income, by far the most of any unit. That’s why in case of Office 15 failure virtually every part of the company will suffer.

The official information about the new Office is prepared to be released, but the rumors are abound that Office 15 might enable editing of Adobe PDF documents and have a lot of mobile functions to get onto more devices. Of course, it is expected that the new Office will play nicely with Surface tablets and connect the software into the company’s free Internet-accessible services. In addition, it will be more touch friendly. The rest will be revealed soon enough.

Read more:


How to Drag and Drop Outlook Mail Items in VB.NET

We have run across the need to drag and drop Outlook Mail Messages into a Windows Forms .NET application and after looking for a proper method, we have found out it was a lot easier to drag and drop attachments found in a mail message than the actual text of a mail message. After a lot of thinking, we cracked the solution and decided to share it with the rest of the world, in case they have to do something similar.
I assume you all know about the dragEnter and DragDrop methods so I shall not dwell into too much detail.

Here’s the function:

Private Sub lstLocalFiles_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstLocalFiles.DragDrop
‘copy file(s) to destination folder
Dim destinationPath As String = “C:Temp”

If Not e.Data.GetDataPresent(DataFormats.Text) = False Then
‘check if this is an outlook message. The outlook messages, all contain a FileContents attribute. If not, exit.
Dim formats() As String = e.Data.GetFormats()

f formats.Contains(“FileContents”) = False Then Exit Sub

‘they are dragging the attachment
If (e.Data.GetDataPresent(“Object Descriptor”)) Then
Dim app As New Microsoft.Office.Interop.Outlook.Application() ‘ // get current selected items
Dim selection As Microsoft.Office.Interop.Outlook.Selection
Dim myText As String = “”
selection = app.ActiveExplorer.Selection
If selection IsNot Nothing Then

Dim mailItem As Outlook._MailItem
For i As Integer = 0 To selection.Count – 1
Dim strFilename As String = “”
                        mailItem = TryCast(selection.Item(i + 1), Outlook._MailItem)
If mailItem IsNot Nothing Then
myText = “”
strFilename = mailItem.Subject + ” ”
strFileName += mailItem.ReceivedTime.ToShortDateString + ” ” +                 mailItem.ReceivedTime.ToShortTimeString + “.txt”
myText = e.Data.GetData(“Text”)  ‘header text
myText += vbCrLf + vbCrLf
myText += mailItem.Body  ‘Plain Text Body Message

For Each _Chr As Char In Path.GetInvalidFileNameChars()
strFileName = strFileName.Replace(_Chr, “_”)

Dim attachment_count As Integer = 1
‘now save the attachments with the same file name and then 1,2,3 next to it
For Each att As Attachment In mailItem.Attachments
Dim att_filename As String = att.FileName
Dim att_extension As String = att_filename.Substring(att_filename.LastIndexOf(“.”))
att.SaveAsFile(destinationPath + strFileName.Replace(“.txt”, CStr(attachment_count) + att_extension))

myText += vbCrLf + “Attachment ” + CStr(attachment_count) + ” : ” + att_filename

attachment_count += 1
 ‘save the mail message

Dim strw As New StreamWriter(destinationPath + strFileName, False)
Catch ex As System.Exception
End Try

End If
End If

End If
End If

End Sub
You need to include Office Interop Outlook into your project references.
If you ever need something like dragging and dropping Outlook Mail Messages into your application, give us a call or contact us on our website: