Textdatei für Faxe etc.

lotusfee · 6. Juli 2009

Hallo!
Ich habe eine dringende Aufgabe bekommen. Kann mir vielleicht Jemand von Euch kurzfristig helfen...?

Ich habe eine Kontakt-Datenbank, in der u.a. über eine Auswahl eine eMail generiert wird, die per Caesar-Fax an alle Adressaten verschickt werden kann.
Dazu werden die Faxnummern aktuell so definiert:
Faxnummer @Fax, nächsteFaxnummer@Fax,....

Da das System für Massenfaxe umgestellt werden soll ist die Aufgabe nun:

>>Um ein Massenfax abzusetzen, muss eine Mail erzeugt werden, in der eine Datei mit dem Namen verteiler.txt steht.
In dieser Datei muss pro Zeile eine Faxnummer stehen und zum Abschluss eine Zeilenschaltung.

Als Betreff darf nur das Wort "Massenfax" stehen.
<<

Wie erstelle ich aus meinem Array von Faxnummern eine Textdatei und hänge diese an die neu erzeugte Mail an?

hurtz · 6. Juli 2009

Für das erstellen von Textdateien suche einfach Print in der Designer-Hilfe, dort findest du alles darüber.

Wie du dann die Datei an die Email anhängst such nach NotesRichtTextItem

MfG Stefan

ascabg · 6. Juli 2009

Hallo,

Und derelei Moeglichkeiten gibt es viele.

Woher hast Du das Array mit den Fax-Nummern?

Auch werde ich aktuell aus der Beschreibung noch nicht ganz schlau, was genau den passieren soll.

... ueber eine Auswahl ein Mail genereiert wird, ...

Andreas

lotusfee · 6. Juli 2009

Hi Andreas!

1) Ich ziehe mir aus der DB anhand einer Auswahl ein Array mit Faxnummern.
2) Bisher konnte ich damit ein Caesar-Fax-Mail generieren und abschicken.
3) Nun soll das geändert werden: Anstelle einer eMail mit den Faxnummern im Adressatenfeld soll nun eine eMail mit einer angehängten Textdatei (für einen externen Versender) erzeugt werden, in der die Faxnummern stehen.

Capiche?

ascabg · 6. Juli 2009

Ok soweit.

Der Rest ist dann ja nur noch ein wenig Handarbeit.

Hier noch ein paar weitere Schlagwort in Ergaenzung zu hurtz seinem Post.

NotesStream
RichTextItem

Grob gesagt:
- Collection der gewaehlten Doks
- Outputfile oeffnen/erstellen
- Faxnummern im entsprechenden Format in die Datei schreiben
- File speichern und schliessen
- Kontrolle, ob File auch wirklich vorhanden
- Mail erzeugen
- Datei anhaengen
- Mail senden

Andreas

ascabg · 6. Juli 2009

Hier noch ein kleiner Ansatz zum Erzeugen der TXT-Datei mit dn Faxnummern.

Code

Sub Initialize

	Dim ses As New NotesSession
	Dim db As NotesDatabase
	Dim col As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim stream As NotesStream

	Dim strWrite As String
	Dim lngCount As Long


	Set db = ses.CurrentDatabase
	If db.IsOpen Then

		Set col = db.UnprocessedDocuments
		If col.Count >= 1 Then

			Set stream = ses.CreateStream
			If Not stream Is Nothing Then

				Call stream.Open("Pfad+Datei", "ASCII")
				For lngCount = 1 To col.Count

					Set doc = col.GetNthDocument(lngCount)
					If Not doc Is Nothing Then

						strWrite = doc.GetItemValue("Faxnummer")(0)
						Call stream.WriteText(strWrite, EOL_CR)

					End If

				Next
				Call stream.Close

			End If

		End If

	End If

End Sub

Alles anzeigen

Andreas

lotusfee · 7. Juli 2009

Hi!

Ich habe das Problem (fast) gelöst.
Nur leider sind die Faxnummern jetzt im Textfile mit "Gänsefüßchen" begrenzt.
Kann ich diese vermeiden????

'******** Erzeuge eine Textdatei aus dem Array der Faxnummern *************************************
Dim fileNum As Integer
Dim fileName As String

fileNum% = Freefile()
fileName$ = "c:\verteiler.txt"
Open "C:\verteiler.txt" For Output As fileNum%

Forall n In resultarray
Write #fileNum%, n
End Forall

Close fileNum%

'******** Erzeuge eine eMail und hänge das o.g. Dokument an ***************************************
Dim rtitem As NotesRichTextItem

Set mailnote = New NotesDocument(maildb)

mailnote.SendTo = EMPFAENGER
mailnote.Subject = BETREFF
mailnote.Form = "Memo"
mailnote.Logo = profile.DefaultLogo(0)
mailnote.Principal = profile.Owner(0)

Set rtitem = New NotesRichTextItem( mailnote, "Body" )
'********
Dim object As NotesEmbeddedObject
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", fileName$)

Call ws.EditDocument(True,mailnote)

taurec · 7. Juli 2009

Wie du der designer Hilfe entnehmen kannst ist das bei Write völlig normal.
Und dort findest du auch einen Link auf Print wo das eben nicht geschieht

ascabg · 7. Juli 2009

Hallo,

Versuch statt

Code

Write #fileNum%, n

mal

Code

Print #fileNum%, n

oder Du gehts ueber die Klasse "NotesStream"

Andreas

lotusfee · 7. Juli 2009

Hi!

Wenn ich das richtig sehe gibt mir Print# aber nicht die Möglichkeit, per NewLine den Umbruch zu machen und zum Schluß auch nochmal eine neue Zeile zu erzeugen, oder?

ascabg · 7. Juli 2009

Eventuell hilft ja denn dieses noch weiter

Print, #fileNum%, n & chr(13)

Andreas

taurec · 7. Juli 2009

Also laut dem Hilfetext tut er das sehr wohl.
Hast du denn den schon mal gelesen ?

ascabg

Braucht man so nicht

ascabg · 7. Juli 2009

taurec,
Ja ich weiss, aber so wird es auf jeden Fall gemacht.

Auch arbeite ich eh lieber mit dem NotesStraem, da ich im hier geneu den Zeichensatz und das entsprechende Endezeichen genau angeben kann.

Andreas

taurec · 7. Juli 2009

ascabg

Eben nicht.

Dein Code verursacht dann jeweils eine zusätzliche Leerzeile dazwischen, was möglicherweise dann den Faxserver dazu bringt nur die erste Nummer zu verwenden.

Und bei NotesStream musst du dann explizit EOL_PLATFORM angeben damit er dann den richtigen Zeilenumbruch verwendet

lotusfee · 7. Juli 2009

Super!
Jetzt klappts!

Merci!

Textdatei für Faxe etc.

Teilen

Benutzer online in diesem Thema