Zum Inhalt springen

PCfreak

Mitglieder
  • Gesamte Inhalte

    156
  • Benutzer seit

  • Letzter Besuch

Beiträge von PCfreak

  1. 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

  2. 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

  3. 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

  4. 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.:rolleyes:

    Kennt jemand das "Enterprise Extended" und wenn ja, wo kann ich Infos darüber beziehen?:confused:

    Vielen Dank.

    :mod:

  5. 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 (")

  6. 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 :P

  7. 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

  8. 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

  9. 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:

  10. 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

  11. 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

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...