-
Gesamte Inhalte
156 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Beiträge von PCfreak
-
-
Schaut mal hier nach: http://www.kabelfaq.de/index.html :floet:
-
Guten Morgen
ich wollte wissen ob es eine Regelung gibt wie lang das ISDN-Kabel sein darf, vom Rechner zu einer Bridge oder so ähnlich. :confused:
Danke für die Infos!!!
-
aber immer noch keinen schimmer wie ich das jemanden klar machen kann der sich nicht damit auskennt.., genauer wäre super, sprich was muss ich tun...danke dir
-
Hallo,
wie kann ich nach erfolgreicher Installation weiterhin E-Mails senden, denn das macht mein System nicht mehr.
Ist sehr wichtig!
Danke schön.
-
Hier der Quelltext:
Mit folgendem Modul kann man E-Mails aus Access via Lotus Notes versenden.
Ich habe allerdings noch nicht herausgefunden, wie man eine Empfängerliste angibt.
Sub SendNotesMail(MailTo As String, MailText As String, MailAnhang As String, _
MailAbsender As String, MailBetreff As String)
'
' Versenden einer E-Mail via Lotus Notes.
'
' IN: MailTo E-Mail Adresse des Empfängers
' MailText Text der Nachricht
' MailAnhang Dateianhang (Dateiname mit Pfad)
' MailAbsender Name des Absenders (wird an den Text angeängt)
' MailBetreff Betreffzeile der E-Mail
'
Dim rtitem As Object
Dim EmbeddedObject As Object
Dim SessionNotes As Object, NotesDB As Object, NotesDoc As Object
'
' wenn die Betreffzeile leer ist, dann wird eine erzeugt
'
If Tri***(MailBetreff) = "" Then
MailBetreff = "Mail vom " & Date & " " & Time
End If
'
' Eigene Fehlerbehandlung
'
On Error GoTo Err_Mail_Click
'
' An die laufende Lotus Notes Session anhängen
'
Set SessionNotes = CreateObject("Notes.NOTESSESSION")
'
' Notes Datenbank-Objekt erstellen und initialisieren
'
Set NotesDB = SessionNotes.GetDatabase("", "")
NotesDB.OPENMAIL
If NotesDB.ISOPEN = False Then
MsgBox "Bitte melden Sie sich zunächst vollständig in Notes an!", vbInformation + vbOKOnly
Exit Sub
End If
'
' Neues Notes-Dokument anlegen (Mail)
'
Set NotesDoc = NotesDB.CreateDocument
With NotesDoc
.Form = "Memo"
.Subject = MailBetreff
.sendto = MailTo
'.copyto = ' Kopie an
'.blindcopyto= Blindkopie an
.body = MailText & vbCrLf & MailAbsender
'.DefaultMailSaveOption = 0
'.MailSaveOption = 0
.DeliveryReport = "B"
.Importance = "2"
'.logo = "Scania"
.SAVEMESSAGEONSEND = True ' bei True wird ein Exemplar in Notes in Gesendet gestellt
.ReturnReceipt = "1"
.Sign = "1"
'.encrypt ="0"
'.Principal = session.UserName
'.viewicon ="74"
'.from = session.UserName
'.SaveOptions = 0
'.SecureMail = ""
'.SenderTag = "F"
If Tri***(MailAnhang) <> "" Then
Const embed_ATT = 1454
Set rtitem = .CreateRichTextItem(MailAnhang)
Set EmbeddedObject = rtitem.EmbedObject(embed_ATT, "", MailAnhang, MailAnhang)
End If
.Send False
End With
Set SessionNotes = Nothing
Set NotesDB = Nothing
Set NotesDoc = Nothing
Set rtitem = Nothing
Set EmbeddedObject = Nothing
Exit_Mail_Click:
Exit Sub
Err_Mail_Click:
MsgBox Err.Description
Resume Exit_Mail_Click
End Sub
Modul als Textfile zum downloaden.
Die Prozedur könnte z.B. in einem Formular in der Ereignisprozedur Beim Klick eines Senden-Buttons aufgerufen werden.
Hier ist allerdings darauf zu achten, daß als Parameter der Prozedur nicht die Steuerelemente des Formulars sondern
lokale Variablen angegeben werden. In meinen Tests kam es, bei Verwendung der Steuerelemente, zu Laufzeitfehlern.
Die Ereignisprozedur könnte dann so aussehen:
Private Sub PbSenden_Click()
Dim Empf As String
Dim MText As String
Dim Anlage As String
Dim MBetreff As String
Dim MAbsender As String
'
' Als Absender den angemeldeten User verwenden
'
MAbsender = Environ("User")
'
' Prüfen, ob ein Empfänger angegeben ist
'
If IsNull(Me.dfEmpfaenger) Then
MsgBox "Bitte geben Sie einen Empfänger an"
End If
Empf = Me.dfEmpfaenger
'
' Wenn keine Nachricht angegeben ist, dann wird
' hier ein Standardtext gesetzt.
'
If IsNull(Me.dfMailtext) Then
MText = "Automatische E-Mail"
Else
MText = Me.dfMailtext
End If
'
' Anhang aus dem Formular übernehmen
'
If IsNull(Me.dfAnhang) Then
Anlage = ""
Else
Anlage = Me.dfAnhang
End If
'
' Wenn kein Betreff angegeben ist, dann
' wird hier ein Standardtext gesetzt.
'
If IsNull(Me.dfBetreff) Then
MBetreff = "Automatische Mail vom " & Date$
Else
MBetreff = Me.dfBetreff
End If
'
' Mail abschicken
'
SendNotesMail Empf, MText, Anlage, MAbsender, MBetreff
End Sub
Aber wie weiter??????????????? :confused:
Gruss Marco
-
Hallo zusammen,
ich habe den Auftrag eine Datenbank zu erstellen mit Access und muss da die Möglichkeit einfügen E-Mails zu versenden. Das Versenden soll mittels Lotus Notes passieren. Ich habe schon die Syntax für die Funktion, aber mein Problem ist, wie packe ich das alles zusammen, damit das auch funktÃoniert.
Bitte dringend um Hilfe!!!
Vielen Dank.
Gruss Marco
-
naja, da gehts schon los php oder javascript, aber wohl javascript
werde mal den link besuchen
bis dann
-
Hallo zusammen,
ich bin dabei meine und für andere Internetseiten einzurichten, doch gibt es so ein paar Sachen an denen man verzweifeln könnte, wie das Forum...
Aufgabe die ich mir gestellt habe:
Ein Forum zu erstellen, wo Bilder eingefügt werden könne und mit einem Adminbereich...
Leider habe ich keine Ahnung wie ich da vorgehen soll.
Bin über jeden Tip sehr erfreud.
Danke.
Gruss
PCfreak
-
Hat sich erledigt.
-
Guten Morgen,
ich habe gerade ein Projekt und benötige dafür hilfe, da dies für mich neu ist.
Es soll ein Gateway so aufgesetzt werden das es von Token-Ring auf Ethernet und IP zugreifen kann.
Kennt jemand das "Enterprise Extended" und wenn ja, wo kann ich Infos darüber beziehen?:confused:
Vielen Dank.
:mod:
-
Hallo,
ich habe mir Firworks installiert und die englische Version herhalten, auf der CD-ROM ist der Ordner "DEUTSCH" enthalten, der die selben Datei, wie der ORdner "ENGLISCH" enthält.
Wie kann ich mir das so einstellen, das ich die deutsche Version von FIREWORKS habe?
Vielen Dank.
Gruss (")
-
Hallo,
ich benötige dringend Informationen über die Befehle die man per FTP los setzen kann, wie zum Beispiel für Internetseiten hochladen auf den Server usw.
Alles was man an Informationen bekommen kann.
Vielen Dank.
Gruss
Marco
-
ich schaue mal ob ich das auftreiben kann, aber heute wird es nichts mehr, wahrscheinlich erst montag. aber erst einmal vielen dank
-
Guten Morgen,
ein Freund von mir hat ein iMAC-Notebook und mit dem Betriebssystem MAC OS bzw. dem Windows Internet Explorer ein Problem, denn über der Adressleiste ist eine Internetadresse die da nicht zu sein hat, gleich links neben dem button print.
ein arbeiten im internet ist noch möglich, doch stört diese adresse.
danke für jede hilfe.
bye und gruss
-
Hallo,
ich möchte mich an Windows 2000 Professinell anmelden mit meinem Admin, doch leider habe ich das Passwort vergessen. Was kann ich tun?
Danke.
-
Hi,
es handelt sich dabei um Windows NT Server. Sorry das ich es nicht gleich dazu geschrieben habe.
MfG
Marco
-
Guten Morgen zusammen,
ich suche dringend ein Tool, welches mir erlaubt von einem Verzeichnisbaum die Rechte auszulesen und urgendwie anzuzeigen!!!
Bin für jeden Tipp dankbar.
Es eilt.
Danke schön.
Gruss
:mod: Schreibt schnell.
-
Hallo,
es handelt sich hierbei um ein MSP3880SP-W 56K Modem. Ich arbeite hier momentan mit Win 98 und mein Provider ist arcor.de, doch das macht kein unterschied da es auch unter freenet.de passiert.
Meine einzige Vermutung ist, das Angaben bei der DFÜ-Verbindung nicht stimmen.
Jeden Tag das gleiche Spiel. 17min dann 10min und soweiter.
Bin da mächtig am verzweifeln.
gruss
-
Hallo zusammen,
ich verzweifle mittlerweile, wenn ich zu hause ins internet gehe über modem, dann fliege ich das erste mal nach 17 minuten aus dem www und dann mit jedem einloggen werden die abstände kürzer. bin für jede hilfe dankbar.
bis dann. danke schön.:confused:
-
Guten morgen zusammen,
ich wollte mal Fragen ob es Kopien im www gibt von zwischenprüfungen die man nutzen kann zur vorbereitung?
ich glaube das das einige mehr interessieren dürfte.
ich habe zwischenprüfung im märz 2003.
-
Hallo,
wenn ich ein Notebook an ein Fernsehrapparat anschliesse und auf dem Notebook ein Film starte, warum sehe ich diesen auf dem Fernsehr nur in schwarz weiss?
Danke.
-
Ich danke euch, für die Tipps die ich natürlich nach gehe, doch was mich stutzig macht ist , dass das von ein Tag auf dem anderen Tag angezeigt wird, denn vorher war diese Meldung nicht zu sehen. Vielen Dank.
Gruss
-
Hallo,
mein Problem hängt mit dem Betriebssystem Win 98 zusammen.
Beim Booten erfolgt eine Meldung die nur nach betätigen der Return - Taste wieder verschwindet und normal bootet.
Die Meldung:
---------------------------
| Scannen C:\*.* |
| C: \ |
---------------------------
Es erscheint dann das normale Bild von Win 98.
Inhalt meiner autoexec.bat:
C:\PROGRA~1\NETWOR~1\MCAFEE~1\SCAN.EXE C:\
@IF ERRORLEVEL 1PAUSE
@ECHO OFF
REM [CD -ROM Drive]
REM [Miscellaneous]
REM [Display]
REM [Mouse]
mode con codepage prepare=((850) c:\windows\COMMAND\ega.cpi)
mode con codepage select = 850
keyb gr,,c:\windows\COMMAND\Keyboard.
Ich hoffe das hilft.
Danke schön.
Gruss PCfreak
-
Hallo kann mir bitte jemand sagen wie ich lilo nachinstalliere buw. grub-manager????
Defragmentierungsprobleme
in Windows
Geschrieben
Hallo Leute,
wenn ich bei meinem Rechner defragmentieren möchten, dann bricht er nach 2, 3 % jedesmal ab. Wenn ich den Task erneut starte, erfolgt das selbe wieder (System zum einen Win 98 und zum anderen 2000). Danke schön