![]() Sub LotusMail(Empfaenger As String, Dateianhang As String, Inhalt As String) #SERIENMAIL LOTUS NOTES 8.5 CODE#Set doc = Nothing Set DB = Nothing End Sub Sub Mail_Senden()Įnd Sub Code eingefügt mit dem MOF Code Converter ' doc.SAVEMESSAGEONSEND = 0 ' Call doc.Save(False, False) Call doc.Send(True, "") ![]() ' doc.SaveOptions = 0 '"1" ' doc.SecureMail = "" ' doc.SenderTag = "F" 'SMTP-Originatorĭoc.PostedDate = Format$(Now, "dd.mm.yyyy") + " " + Format$(Now, "hh:nn:ss") Set EmbeddedObject = rtitem.EMBEDOBJECT(EMBED_ATTACHMENT, "", Dateianhang) 'Dateianhang mit Pfad und Dateiname überschreiben 'doc.SIGN = "0" 'doc.ENCRYPT = "0" 'doc.BlindCopyTo = "" 'doc.DefaultMailSaveOptions = 0 '"1" 'doc.MailSaveOptions = 0 '"1" 'doc.DeliveryReport = "B" 'doc.MailOptions = "2" '"0" 'doc.Importance = "1" ' Neu 'doc.logo = "Barmenia" 'neu 'doc.ReturnReceipt = "1" Set rtitem = doc.CREATERICHTEXTITEM("ProjectDescription") Set DB = session.GETDATABASE(server, mailfile)ĭoc.SendTo = Empfaenger ' Adressaten übergeben ' doc.CopyTo = Me.Kopie_Empfänger.Value ' doc.BlindCopyTo = Me.BlindKopie_Empfänger.Value ![]() Mailfile = session.GetEnvironmentString("MailFile", True) ![]() Server = session.GetEnvironmentString("MailServer", True) ' Auslesen der Mail-DB Set session = CreateObject("Notes.NotesSession") Sub sendnotesmail(Empfaenger As String, Dateianhang As String, Inhalt As String)ĭim Kopie_Empfänger As String, BlindKopie_Empfänger As String, Betreff As String Const EMBED_ATTACHMENT = 1454ĭim server As String, mailfile As String Dim session As Object ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |