hausmeister079
Mitglied
Guten Morgen NET Gemeinde,
Ich habe ein Program welches mir erlaubt eine Mail von Outllok via Drag and Drop in ein von mir
bestimmtes Verzeichnis kopiert. Alles funktioniert wunderbar auf meinem privaten Rechner.
Jetzt wollte ich diese Program heute auf meinen Arbeitsrechner benutzen und siehe da, es funktioniert
nicht zu 100%. Das Program legt normale Mails ohne Anhang an, jedoch wenn ich einen Anhang habe,
bekomme ich folgende Fehler Meldung:
Ich verstehe nicht warum es auf meinen privaten Rechner funktioniert und auf dem Arbeitsrechner nicht.
Privater Rechner läuft mit XP und Office 2007.
Arbeitsrechner läuft auf Vista und Office 2007.
Hier mein Code:
Problem Fall 2.
Das Programm soll die Email unter folgenden Aspekten speichern:
Datum Uhrzeit Sender Empfänger Subject
Sender, Empfänger und Subject kein Problem aber mit Datum funktioniert es nicht mal auf meinen Privaten rechner.
Ich versuchte für Sender folgenden code: objMI.Sent
Ich hoffe das mir jemand Helfen kann.
Vielen Dank
Ich habe ein Program welches mir erlaubt eine Mail von Outllok via Drag and Drop in ein von mir
bestimmtes Verzeichnis kopiert. Alles funktioniert wunderbar auf meinem privaten Rechner.
Jetzt wollte ich diese Program heute auf meinen Arbeitsrechner benutzen und siehe da, es funktioniert
nicht zu 100%. Das Program legt normale Mails ohne Anhang an, jedoch wenn ich einen Anhang habe,
bekomme ich folgende Fehler Meldung:
HTML:
An error occured in the drop event System.IO.Directory Not FoundException: Operation failed. at Microsoft.Office.Interop._Mailitem.SaveAs(String Path, Object Type) at WindowsApplication1.Form1.Label1_DragDrop
Ich verstehe nicht warum es auf meinen privaten Rechner funktioniert und auf dem Arbeitsrechner nicht.
Privater Rechner läuft mit XP und Office 2007.
Arbeitsrechner läuft auf Vista und Office 2007.
Hier mein Code:
HTML:
Option Strict On
Public Class Form1
Dim objOL As New Microsoft.Office.Interop.Outlook.Application
''' <summary>
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub Label1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragDrop
lblFile.Text = String.Empty
Try
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim draggedFiles As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each fileName As String In draggedFiles
Dim strDestinationFile As String = _
IO.Path.Combine("C:\test", _
IO.Path.GetFileName(fileName))
If strDestinationFile.Trim.ToUpper = fileName.Trim.ToUpper Then
lblFile.Text += strDestinationFile + _
" - Source and Destination are the same" + _
Environment.NewLine
Else
lblFile.Text += "Copying - " + _
strDestinationFile + Environment.NewLine
IO.File.Copy(fileName, strDestinationFile)
End If
Next
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim objMI As Microsoft.Office.Interop.Outlook.MailItem
For Each objMI In objOL.ActiveExplorer.Selection()
Dim strFile As String = _
IO.Path.Combine("C:\test", _
(" " + objMI.SenderName + " to " + objMI.ReceivedByName + " - " + objMI.Subject + ".msg").Replace(":", ""))
' " " +objMI.ReceivedByName + " " + objMI.SenderName + " " + objMI.Subject +
'" " +objMI.To + " " + objMI.SenderEmailAddress + " " + objMI.Subject +
lblFile.Text += strFile + Environment.NewLine
objMI.SaveAs(strFile)
Next
End If
lblFormat.Text = String.Empty
Catch ex As Exception
lblFile.Text = "An error occured in the drop event" + Environment.NewLine + ex.ToString
End Try
End Sub
''' <summary>
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub Label1_DragLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DragLeave
lblFormat.Text = String.Empty
End Sub
''' <summary>
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub Label1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragOver
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
lblFormat.Text = "DragOver ... File drop"
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
e.Effect = DragDropEffects.Copy
lblFormat.Text = "DragOver ... Outlook"
Else
e.Effect = DragDropEffects.None
lblFormat.Text = ""
End If
End Sub
Problem Fall 2.
Das Programm soll die Email unter folgenden Aspekten speichern:
Datum Uhrzeit Sender Empfänger Subject
Sender, Empfänger und Subject kein Problem aber mit Datum funktioniert es nicht mal auf meinen Privaten rechner.
Ich versuchte für Sender folgenden code: objMI.Sent
Ich hoffe das mir jemand Helfen kann.
Vielen Dank