Mehrere Dateien aus Excel nach Lotus mailen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Mehrere Dateien aus Excel nach Lotus mailen
von: Fose
Geschrieben am: 04.07.2002 - 11:53:16

Hallo

Ich versuche aus Excel per VBA eine Mail mit Anhang an Lotus Notes zu schicken. Anbei sende ich Euch den Part, mit dem er funktioniert

Attachment="C:\config.sys"
if attachment <>"" then
set AttachME=MailDoc.CREATERICHTEXTITEM("Attachment")
set EmbedObj=AttachME.EMBEDOBJECT(1454,"",Attachment,"Attachment")
MailDoc.CREATERICHTEXTITEM("Attachment")
end if

Dies funktioniert auch ohne Probleme. Wie kann ich aber mehrere Dateien auf einmal verschicken?
Wie bekomme ich vom MailServer eine Bestätigung über die geschickte Mail

Für die Bemühungen Danke im voraus

nach oben   nach unten

Re: Mehrere Dateien aus Excel nach Lotus mailen
von: sam
Geschrieben am: 04.07.2002 - 12:04:22

Hi,


Unter "Extras" - "Verweise" muss auf die Notes-Bibliothek verwiesen werden!

Sub SendeDatei(strSubject As String, strSendTo As String, strPathname As String, strBodyText As String)

Dim strCopyto As String
Dim strBlindCopyto As String
Dim strServer As String
Dim session
Set session = CreateObject("notes.NotesSession")

Dim obj
Dim rtItem
Dim docMail 'This will return the server and path to the current users mail file.

Dim db
Dim s

Set s = CreateObject("Notes.Notessession") 'New doesn't work here for some reason
Set db = s.GETDATABASE("", "")
'Creates a new document in the Mail Database
db.OPENMAIL
Set docMail = db.CREATEDOCUMENT 'When creating documents via VB the default values are not calculated so all the fields required 'must be set programmatically
Call docMail.REPLACEITEMVALUE("Form", "Memo")

strCopyto = "" 'Who to send a copy to
strBlindCopyto = "" 'Who you want to be blind copied to
Call docMail.REPLACEITEMVALUE("Subject", strSubject)
Call docMail.REPLACEITEMVALUE("SendTo", strSendTo)
Call docMail.REPLACEITEMVALUE("strCopyTo", strCopyto)
Call docMail.REPLACEITEMVALUE("BlindCopyTo", strBlindCopyto)

'Creates the memo body field, which contains main info and attachments
Set rtItem = docMail.CREATERICHTEXTITEM("Body")
Call rtItem.APPENDTEXT("Hallo Du,") ' Add some text to the body field
Call rtItem.ADDNEWLINE(2) ' Adds 2 blank lines to the body field
Call rtItem.APPENDTEXT(strBodyText)
Call rtItem.ADDNEWLINE(2)
'Embeds the file with the pathname stored in strpathname
Set obj = rtItem.EMBEDOBJECT(1454, "", "c:\Config.sys")
Set obj = rtItem.EMBEDOBJECT(1454, "", "c:\Autoexcec.bat")
Call rtItem.ADDNEWLINE(2) ' Adds 2 blank lines to the body field

Call rtItem.APPENDTEXT("Mit freundlichen Grüßen, ")
Call rtItem.ADDNEWLINE(1)
Call rtItem.APPENDTEXT("Mein Name")
'Call docMail.SEND(False) 'Don't include this to save it in the drafts view '
Call docMail.Save(True, True) 'Include this to save in the send view

End Sub


so gehts bei mir unter VBA (Access) müsste also auch unter Excel gehen. für mehrere Dateien habe ich einfach die Zeilen wiederholt.

Gruß aus Oberösterreich,
Sam

nach oben   nach unten

Re: Mehrere Dateien aus Excel nach Lotus mailen
von: Frank
Geschrieben am: 04.07.2002 - 12:10:06

Hallo Sam,

wie ruft man denn dein Makro auf ??
wie erfolgt die Übergabe der variablen ??

vielen Dank

Gruss Frank


nach oben   nach unten

Re: Mehrere Dateien aus Excel nach Lotus mailen
von: sam
Geschrieben am: 04.07.2002 - 12:44:43

hi,

ein bisschen adaptieren wirst du es müssen. z.B.


Sub Senden()

Dim strCopyto As String
Dim strBlindCopyto As String
Dim strServer As String
Dim session
Set session = CreateObject("notes.NotesSession")


strSubject = "Mein Betreff"
strBodyText = "Mein Nachrichtentext"
strSendTo = "Empfänger@Empfänger.com"
strDatei1 = "C:\Config.sys"
strDatei2 = "C:\Autoexec.bat"

Dim obj
Dim rtItem
Dim docMail 'This will return the server and path to the current users mail file.

Dim db
Dim s

Set s = CreateObject("Notes.Notessession") 'New doesn't work here for some reason
Set db = s.GETDATABASE("", "")
'Creates a new document in the Mail Database
db.OPENMAIL
Set docMail = db.CREATEDOCUMENT 'When creating documents via VB the default values are not calculated so all the fields required 'must be set programmatically
Call docMail.REPLACEITEMVALUE("Form", "Memo")

strCopyto = "" 'Who to send a copy to
strBlindCopyto = "" 'Who you want to be blind copied to
Call docMail.REPLACEITEMVALUE("Subject", strSubject)
Call docMail.REPLACEITEMVALUE("SendTo", strSendTo)
Call docMail.REPLACEITEMVALUE("strCopyTo", strCopyto)
Call docMail.REPLACEITEMVALUE("BlindCopyTo", strBlindCopyto)

'Creates the memo body field, which contains main info and attachments
Set rtItem = docMail.CREATERICHTEXTITEM("Body")
Call rtItem.APPENDTEXT("Hallo Du,") ' Add some text to the body field
Call rtItem.ADDNEWLINE(2) ' Adds 2 blank lines to the body field
Call rtItem.APPENDTEXT(strBodyText)
Call rtItem.ADDNEWLINE(2)
'Embeds the file with the pathname stored in strpathname
Set obj = rtItem.EMBEDOBJECT(1454, "", strDatei1)
Set obj = rtItem.EMBEDOBJECT(1454, "", strDatei2)
Call rtItem.ADDNEWLINE(2) ' Adds 2 blank lines to the body field

Call rtItem.APPENDTEXT("Mit freundlichen Grüßen, ")
Call rtItem.ADDNEWLINE(1)
Call rtItem.APPENDTEXT("Mein Name")
'Call docMail.SEND(False) 'Don't include this to save it in the drafts view '
Call docMail.Save(True, True) 'Include this to save in the send view

End Sub

Hoffe, das hilft die weiter,
Sam

nach oben   nach unten

Re: Mehrere Dateien aus Excel nach Lotus mailen
von: Fose
Geschrieben am: 05.07.2002 - 08:31:08

Vielen Dank erstmal. Ich werde es auprobieren

nach oben   nach unten

Re: Mehrere Dateien aus Excel nach Lotus mailen
von: Fose
Geschrieben am: 06.07.2002 - 12:25:30

Ich konnte das Problem heute beseitigen

Viiiiielen Dank


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Mehrere Dateien aus Excel nach Lotus mailen"