ktab
Well-known Member
- Joined
- Apr 21, 2005
- Messages
- 1,297
Hello,
I have this code to automatically send mails.
Is there a way to add signature to these mails?
Thank you
Kostas
I have this code to automatically send mails.
Is there a way to add signature to these mails?
Code:
Public Sub mail()
Dim MyAddress As String
Dim olkApp As Outlook.Application
Dim olkNameSpace As Outlook.Namespace
Dim olkDefaultFolder As Outlook.MAPIFolder
Dim olkMail As Outlook.MailItem
If ActiveCell.Offset(, 13).Value = "Í/Á" Or ActiveCell.Offset(, 13).Value = "" Then MsgBox "Äåí õðÜñ÷åé äéåýèõíóç mail.", vbInformation, "Not valid mail address": Exit Sub
On Error Resume Next
Set olkApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then Set olkApp = CreateObject("Outlook.Application")
On Error GoTo EH:
Set olkNameSpace = olkApp.GetNamespace("MAPI")
Set olkDefaultFolder = olkNameSpace.GetDefaultFolder(Outlook.olFolderInbox)
Set olkMail = olkDefaultFolder.Items.Add(Outlook.olMailItem)
With olkMail
.To = ActiveCell.Offset(, 13).Text
.CC = ""
.BCC = ""
.Subject = "Test mail"
.Body = "message"
.Attachments.Add ("c:\info1.jpg")
.Attachments.Add ("c:\info2.jpg")
.Send
.Importance = olImportanceHigh
End With
EH:
Set olkMail = Nothing
Set olkDefaultFolder = Nothing
Set olkNameSpace = Nothing
Set olkApp = Nothing
End Sub
Thank you
Kostas