Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

Mail versenden

Frage Entwicklung VB for Applications

Mitglied: cewiethemaster

cewiethemaster (Level 2) - Jetzt verbinden

31.03.2010 um 10:41 Uhr, 4272 Aufrufe, 3 Kommentare

Beim Anklicken von Command1 soll ein Outlookfenster aufgemacht werden, wo die Felder Schon Vorausgefüllt sind...

Hallo.

nächstes Problem

Beim Anklicken von Command1 soll ein Outlookfenster aufgemacht werden, wo die Felder Schon Vorausgefüllt sind...

der derzeitige Code von mainscreen sieht so aus:

01.
Private Declare Function ShellExecute Lib "Shell32.dll" () 
02.
      Alias "ShellExecuteA" (ByVal hWnd As Long, _ 
03.
      ByVal lpOperation As String, ByVal lpFile As String, _ 
04.
      ByVal lpParameters As String, ByVal lpDirectory As String, _ 
05.
      ByVal nShowCmd As Long) As Long 
06.
 
07.
 Private Sub Mail(eMail As String, Optional Subject As String, Optional Body As String) 
08.
    Call ShellExecute(0&, "Open", "mailto:" + eMail + _ 
09.
    "?Subject=" + Subject + "&Body=" + Body, "", "", 1) 
10.
End Sub 
11.
Private Sub Command1_Click() 
12.
    Dim Nachricht As String 
13.
    Nachricht = "Hallo" & "%0D%0A" & "Du da !" 
14.
    Call Mail("WireWare@gmx.at", "Test", Nachricht) 
15.
End Sub 
16.
 
Allerdings bekomme ich folgende Fehlermeldungen:

Fehler 1 Die Anweisung ist in einem Namespace ungültig. Form2.vb 1 1 ww_contact
Fehler 2 Syntaxfehler. Form2.vb 2 7 ww_contact
Fehler 3 Optionale Parameter müssen einen Standardwert angeben. Form2.vb 7 62 ww_contact
Fehler 4 Die Anweisung ist in einem Namespace ungültig. Form2.vb 11 1 ww_contact

Und wen n ich das Tool Debugge, kommt nur die Leere Form...




Bitte helft mir...
Mitglied: cewiethemaster
31.03.2010 um 12:58 Uhr
Edit:


Jetzt hab ich es, nur kommt da dauernd der Fehler Fehler 1 Der Name "olMailItem" wurde nicht deklariert. Form2.vb 13 34 ww_contact

Hier der Code
01.
    Private Sub send_ask_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles send_ask.Click 
02.
        Dim olApp As Outlook.Application 
03.
        Dim oItem As Outlook.MailItem 
04.
 
05.
        'Outlook-Objekt anlegen: 
06.
        olApp = New Outlook.Application 
07.
        oItem = olApp.CreateItem(olMailItem) 
08.
        With oItem 
09.
            'Adressen: 
10.
            .To = "wireware@gmx.at;" 
11.
 
12.
            'Nachricht: 
13.
            .Subject = "WW-Contact-Tool" 
14.
            .Body = "Dieser User hat eine Allgemeine Frage an WireWare:" & vbNewLine & _ 
15.
                    "BITTE GEBEN SIE HIER IHR ANLIEGEN EIN" & vbNewLine & _ 
16.
                    "sendt automatically via WW-Contact-Tool" 
17.
 
18.
            
19.
 
20.
            'Abschicken: 
21.
            .ReadReceiptRequested = True 'Keine Lesebestätigung 
22.
            .display() 
23.
            .Send() 
24.
        End With 
25.
 
26.
    End Sub 
27.
End Class
Bitte warten ..
Mitglied: RedWraith
01.04.2010 um 20:57 Uhr
Hi !

Wenn du etwas postest, wäre es ganz schön, zu wissen, mit was und welchen Versionen du arbeitest.

Ist das VB .Net oder VBA ? Eigenständiges Programm oder Outlook Makro ?

Ansonsten wenn ich blind tippen würde, würde ich sagen, dass der Fehler bei oItem = olApp.CreateItem(olMailItem).

Ich kann es jetzt gerade nicht ausprobieren, aber ich glaube es müsste heißen oItem = olApp.CreateItem(Outlook.OlItemType.olMailItem).
Bitte warten ..
Mitglied: cewiethemaster
06.04.2010 um 07:29 Uhr
Danke, hat geklappt.


Es war VisualBasic2008express.

Danke trotzdem für die Hilfe
Bitte warten ..
Ähnliche Inhalte
Groupware
Newsletter Mails vom Webserver oder Mailserver versenden? (10)

Frage von Lakatusch zum Thema Groupware ...

Outlook & Mail
gelöst Outlook soll grundsätzlich nur HTML-Mails versenden (1)

Frage von Laufenfeuer zum Thema Outlook & Mail ...

E-Mail
Automatische E-Mails verzögert versenden (12)

Frage von typischAndy zum Thema E-Mail ...

Windows 10
Skript zum Auslesen und Automatischen Versenden von E-Mails (3)

Frage von weber4134 zum Thema Windows 10 ...

Neue Wissensbeiträge
Entwicklung

Exploit Development

Anleitung von burhanudinn123 zum Thema Entwicklung ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(1)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
Leiten "dumme" Switches VLAN-Tags mit durch? (17)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

E-Business
Wo tragt ihr eure privaten Termine ein? (14)

Frage von honeybee zum Thema E-Business ...

Batch & Shell
Batch zum suchen und verschieben von Verknüpfungen (12)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...