Code: Select all | Expand
<!DOCTYPE html>
<html>
<head><META http-equiv=Content-Type content="text/html; charset=utf-8">
</head>
<body style="word-wrap:break-word" vlink="#954F72" link="#0563C1"
lang="IT">
Buongiorno,
<div class="moz-forward-container">
<div class="WordSection1">
<p class="MsoPlainText">si invia in allegato la situazione
contabile delle partite in essere alla data odierna.
</p>
<p class="MsoNormal"
style="margin-top:2.35pt;text-autospace:none"><span
style="mso-fareast-language:IT">Vi preghiamo di eseguire il
pagamento delle fatture scadute
</span><span style="color:black">sul seguente appoggio
bancario</span>:<span
style="color:black;mso-fareast-language:IT"></span></p>
<p class="MsoNormal" style="text-align:justify"><span
style="mso-fareast-language:IT">Se avete già provveduto a
quanto succitato, Vi preghiamo di ritenere nulla la presente
e di darcene comunicazione scritta e/o telefonica.</span></p>
<p class="MsoPlainText">Restiamo a disposizione per qualsiasi
chiarimento.</p>
<p class="MsoPlainText">Distinti saluti</p>
<p class="MsoNormal"> </p>
</div>
</div>
</body>
</html>
Code: Select all | Expand
<style type="text/css">
.moz-forward-container {
padding-top: 10px;
background-color: #ccc;
}
.WordSection1 {
margin-left: 20px;
padding-top: 5px;
}
.MsoNormal {
text-align: center;
color: red;
}
.MsoPlainText {
font-family: Roboto;
color: white;
background-color: #336699;
}
</style>Thank you. But I have tried and get an errormessage.MarcoBoschi wrote:I cannot test it but maybe
oMailItem:to := cRecipient
oMailItem:from := cFrom
you should try
Code: Select all | Expand
Error description: (DOS Error -2147352570) WINOLE/1008 No exported variable: FROM
Args:
[ 1] = C hakan@objekt.com.tr
Stack Calls
===========
Called from: ..\contrib\hbwin\oleauto.prg => TOLEAUTO:_FROM( 0 )Code: Select all | Expand
Sub SendUsingAccount()
Dim oAccount As Outlook.account
For Each oAccount In Application.Session.Accounts
If oAccount.AccountType = olPop3 Then
Dim oMail As Outlook.MailItem
Set oMail = Application.CreateItem(olMailItem)
oMail.Subject = "Sent using POP3 Account"
oMail.Recipients.Add ("someone@example.com")
oMail.Recipients.ResolveAll
Set oMail.SendUsingAccount = oAccount
oMail.Send
End If
Next