Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mail senden

Frage Entwicklung VB for Applications

Mitglied: Cadsys-Chemnitz

Cadsys-Chemnitz (Level 1) - Jetzt verbinden

15.04.2009, aktualisiert 15:12 Uhr, 2512 Aufrufe, 1 Kommentar

Ich hab folgendes Problem. Ich habe ein Excelfile das automatisch erzeugt wird. In Diesen liegt ein vollständiges Infoangebot für unseren Kunden.

Dieses will ich per MAil verschicken, der Code sieht so aus:


01.
 
02.
    Private Sub InfoangebotPerMailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoangebotPerMailToolStripMenuItem.Click 
03.
 
04.
        Dim msgBody 
05.
 
06.
        msgBody = "Im Anhang finden Sie Ihr Infoangebot!" 
07.
 
08.
        MySendMail("tfuchs@xxx.de", msgBody, "Ihr Infoangebot.") 
09.
    End Sub 
10.
 
11.
    Sub MySendMail(ByVal Recipient, ByVal msg, ByVal subject) 
12.
 
13.
        Dim OpenFileDialog As New OpenFileDialog 
14.
        OpenFileDialog.InitialDirectory = Kunden & "\" 
15.
        OpenFileDialog.Filter = "Textdateien (*.xls)|*.xls" 
16.
        OpenFileDialog.ShowDialog(Me) 
17.
        Dim FileName As String = OpenFileDialog.FileName 
18.
 
19.
        Dim objSession, oInbox, colMessages, oMessage, colRecipients 
20.
 
21.
        objSession = CreateObject("MAPI.Session") 
22.
        objSession.Logon("Outlook") 
23.
 
24.
        oInbox = objSession.Inbox 
25.
        colMessages = oInbox.Messages 
26.
        oMessage = colMessages.Add() 
27.
        colRecipients = oMessage.Recipients 
28.
 
29.
        colRecipients.Add(Recipient) 
30.
        colRecipients.Resolve() 
31.
 
32.
        oMessage.Subject = subject 
33.
        oMessage.Text = msg 
34.
        oMessage.AttachmentPathName = FileName 
35.
 
36.
        oMessage.Send() 
37.
 
38.
        objSession.Logoff() 
39.
        objSession = Nothing 
40.
 
41.
    End Sub 
42.
 
Bei der Zeile

01.
        oMessage.AttachmentPathName = FileName
kommt eine Fehlermeldung:

Der offentliche Member AttachmentPathName für den Typ Message wurde nicht gefunden.

Wenn ich diese Zeile entferne geht es einwandfrei nur fehlt dann der Anhang. Am fehlenden Verweis kann es nicht liegen weil die anderen oMessage. Befehle ja gehen. Und laut MSDN lautet der Befehl oMessage.AttachmentPathName = FileName .

Wo liegt der Fehler ? Hat einer eine Idee?
Mitglied: AndreasHoster
15.04.2009 um 15:51 Uhr
Aus der MS Webseite (http://msdn.microsoft.com/en-us/library/aa228327(VS.60).aspx):
Specifies the full path name of the currently indexed attachment. This property is not available at design time. It is read-only unless MsgIndex is set to -1.

Ich sehe nicht, daß MsgIndex auf -1 gesetzt ist.
Und dann muß man noch den AttachmentIndex erhöhen (http://msdn.microsoft.com/en-us/library/aa228313(VS.60).aspx):
To add a new attachment, set the AttachmentIndex to a value greater than or equal to the current attachment count while in the compose buffer (MsgIndex = -1). The AttachmentCount property is updated automatically to reflect the implied new number of attachments.

Ob das alles war kann ich nicht sagen, bin Outlook frei.
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Thunderbird Senden an E-Mail-Empfänger (3)

Frage von DasWombat1993 zum Thema Outlook & Mail ...

Exchange Server
gelöst Exchange Server Mail senden (5)

Frage von MorrowToon zum Thema Exchange Server ...

Batch & Shell
gelöst Bash Mail senden (7)

Frage von Marabunta zum Thema Batch & Shell ...

LAN, WAN, Wireless
gelöst Pfsense lässt E-Mail senden nicht zu (7)

Frage von DocSnyder26 zum Thema LAN, WAN, Wireless ...

Neue Wissensbeiträge
Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Erkennung und -Abwehr

Infineon TPMs unsicher! Bitlocker ggf. angreifbar

(4)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(6)

Information von Dobby zum Thema Firewall ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...