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, 4230 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
E-Mail
gelöst BLAT zum Mail versenden. Fehler für mich nicht lösbar (25)

Frage von 130217 zum Thema E-Mail ...

Outlook & Mail
gelöst E-Mail versenden mit PowerShell (6)

Frage von 112Timo zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Office 365 - SMTP - automatisierte Mail versenden - "Gerät freigeben?!" (4)

Frage von KMUlife zum Thema Outlook & Mail ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...