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

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

23.07.2002 12: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

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

24.07.2002 18:29:49

Sönke

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

24.07.2002 18: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

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

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

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread