Access Makro

Re(3): Access Makro

Penguin — Wed, 06 Oct 2004 14:23:28 GMT

jedes dieser Felder im Formular hat einen Namen (zB wenn du nichts änderst heißt die erste textbox textbox1 usw.), anschauen kannst du dir den namen wenn du im entwurfsmodus des Formulars mit der rechten Maustaste anklickst.

Im Makro schreibst du dann halt

Bodytext=textbox1.text & " " & textbox2.text

etc.

Die Formatierung ist wie gesagt eine andere Sache, kann man aber auch machen, sag mal die Namen der Felder (wo die werte für die Mail drinnen stehen) bitte

Re(2): Access Makro

Sputum — Wed, 06 Oct 2004 13:55:35 GMT

Okay!

Ich habe ein Formular mit 10 Eingabefeldern und diesem Senden Button.
5 von diesen Feldern kommen aus einer Tabelle, die anderen 5 muss man selbst dazuschreiben und alle 10 Felder sollen aber dann im Mail sein.

Konkret sieht das so aus:

Ich wähle eine Abteilung im ersten Feld aus, damit befüllen sich die anderen 4 Felder. Die restlichen 5 Felder sind zusätzliche Infos die ich selbst eingeben muss und dann mitschicken will. Es handelt sich um Textfelder. Wenn mann die Bezeichnungsfelder mitnehmen kann, wäre es gut, ist aber nicht unbedingt erforderlich....

Ich hoffe die Infos waren detailiert genug....

Re: Access Makro

Penguin — Wed, 06 Oct 2004 13:32:01 GMT

Zuerst einmal würde ich, das Sende Programm separiereren (also den code nicht im Commandbutton-Makro haben) und die entsprechenden Werte übergeben.

Was konkret verstehst du unter einem Formular, wird dort etwas angezeigt (aus der DB) oder wird etwas vom User eingegeben.

Was für Felder hat dein Formular, zB ist jedes Textfeld einfach auszulesen, Datenbereiche sind da schon massiver, vor allem wenn die Gestaltung in Lotus Notes ansprechend sein soll.

Also, um dir eine brauchbare Antwort geben zu können bitte mehr Infos!

Access Makro

Sputum — Wed, 06 Oct 2004 12:37:23 GMT

Hallo!

Ich will mit hilfe eines Access Makros ein Mail per Notes schicken, dieses Mail soll im body den Inhalt (alle Felder) eines Formulars haben, wie mache ich das???

Der Mailversand klappt bereits, leider weiss ich net was ich beim bodytext (derzeit steht TEST drin) reinschreiben muss, sodass die Felder des Formulars angedruckt werden....

Private Sub Befehl6_Click()
Dim Betreff As String
Dim empfaenger As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim ABSENDER As String
Dim DATEIANHANG As String
Dim rtitem As Object
Dim EmbeddedObject As Object
'Dim varEmpfaenger() As Variant
bodytext = "TEST"
mailHead = "Anforderung Abteilungslaufwerk"
gotomail = MsgBox("Wollen Sie dieses Mail senden", 33, "Mail versenden")
If gotomail = 1 Then
On Error GoTo Err_Mail_Click
Dim SessionNotes As Object, NotesDB As Object, NotesDoc As Object
Set SessionNotes = CreateObject("Notes.NOTESSESSION")
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
Set NotesDoc = NotesDB.CreateDocument
With NotesDoc
.Form = "Memo"
.Subject = mailHead
.sendto = "test@test.at"
'.blindcopyto = "test@test.at"
.body = bodytext
.DeliveryReport = "B"
.Importance = "2"
.SAVEMESSAGEONSEND = True
.Sign = "1"
.Send False
End With
Set SessionNotes = Nothing
Set NotesDB = Nothing
Set NotesDoc = Nothing
Set rtitem = Nothing
Set EmbeddedObject = Nothing
MsgBox ("E-mail versandt!")
Exit_Mail_Click:
Exit Sub
Err_Mail_Click:
Resume Exit_Mail_Click
Else
MsgBox ("Mailversand auf ihren Wunsch abgebrochen!")
End If
End Sub