Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

E-Mail verschicken aus Excel: immer *.tmp Datei?

E-Mail verschicken aus Excel: immer *.tmp Datei?
23.07.2002 10:26:33
Matthias Gäbisch
Wenn ich aus Excel mit sendmail eine E-Mail verschick, hat der Anhang immer die Endung *.tmp anstatt *.xls. (in LotusNotes). Wie kann ich das ändern, bzw. ist es möglich auch einen Dateinamen anzugeben, der dann versendet wird?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: E-Mail verschicken aus Excel: immer *.tmp Datei?
24.07.2002 16:29:49
Sönke
Hallo Matthias, versuch mal das Beispiel für Lotus Notes:
Sub LotusNotes_SendMessage(AnAdresse, Betreffeingabe, Bestätigung_true_false, Mailversenden, Anlage1, anlage2, Bodytext)
Dim Maildb As Object 'The mail database
Dim username As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
On Error Resume Next
Set Session = CreateObject("notes.NotesSession")
Set Maildb = Session.GETDATABASE("", "")
username = Session.username
If Maildb.ISOPEN = False Then
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
If Err = 7063 Then
Meldung_aufbereiten 2
GoTo ende
End If
MailDoc.Form = "Memo"
Call MailDoc.REPLACEITEMVALUE("SendTo", AnAdresse)
Call MailDoc.REPLACEITEMVALUE("Subject", Betreffeingabe)
If Bestätigung_true_false = True Then
Call MailDoc.REPLACEITEMVALUE("ReturnReceipt", "1")
End If
Call MailDoc.REPLACEITEMVALUE("DefaultMailSaveOptions", "1")
Call MailDoc.REPLACEITEMVALUE("From", username)
Call MailDoc.REPLACEITEMVALUE("SaveOptions", "1")
MailDoc.Body = Bodytext
MailDoc.SAVEMESSAGEONSEND = True
If Anlage1 <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Anlage1)
End If
If anlage2 <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", anlage2)
End If
'Send the document
'PostedDate verursacht ein direktes senden !!!
MailDoc.Save True, True
If Mailversenden = True Then
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
MailDoc.SEND 0, AnAdresse
End If
ende:
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige