Rank: Newbie
Groups: Registered
Joined: 4/30/2025(UTC)
Posts: 1
Hi all
I'm trying to send an email containing the current workbook as an attachment, however the email being sent out without the file being attached, with no Error message shown either.
In the main sub - I call the function using the parameters below
Code: eMailTo eto:=eto, ecc:=ecc, subj:=esub, body:=RangetoHTML(rng), attach:=ActiveWorkbook.FullNameand the function used here is -
Code: Function eMailTo(eto, ecc, subj, body, attach)
Dim e
Set e = CreateObject("EaSEndMailObj.mail")
'Set e = New EASendMailObjLib.Mail
With e
.LicenseCode = (Removed)
.ServerAddr = (Removed)
.UserName = (Removed)
.Password = (Removed)
.ServerPort = 25
.ConnectType = 4
.FromAddr = (Removed)
.AddRecipientEx eto, 0
.AddRecipientEx ecc, 1
.BodyFormat = 1
.BodyText = body
.Subject = subj
End With
If e.Addattachments(attach) <> 0 Then
MsgBox "Email Attachment Error: " & e.GetLastErrDescription()
End If
Application.DisplayStatusBar = True
Application.StatusBar = "Connecting " & e.ServerAddr & " ..."
e.Asynchronous = 1
' InitVariables
' CurrentEmailIsFinished = False
e.SendMail
End Functionanybody know where i may have screwed up?
Forum Jump
EmailArchitect Support
Email Component Development
- EASendMail SMTP Component - .NET Version
- EASendMail SMTP Component - Windows Store Apps
- EASendMail SMTP ActiveX Object
- EAGetMail POP3 & IMAP4 Component - .NET Version
- EAGetMail POP3 & IMAP4 ActiveX Object
Exchange Server and IIS SMTP Plugin
- DomanKeys/DKIM for Exchange Server and IIS SMTP
- Disclaimer and S/MIME for Exchange Server and IIS
EmailArchitect Email Server
- EmailArchitect Email Server (General)
- EmailArchitect Email Server Development
You cannot post new topics in this forum.
cannot reply to topics in this forum.
cannot delete your posts in this forum.
cannot edit your posts in this forum.
cannot create polls in this forum.
cannot vote in polls in this forum.
